急求高手解决：处理合并单元格有关问题！

急求高手解决：处理合并单元格问题！！！急急急比如，有一个占有6列（A1：A6）的合并单元格，在vba代码中我录制宏的时候我想选中一行，比如就第一行，生成的代码是Rows（1）.select。但是我用代码实现选中一行的时候我用Rows（1）.select时候，我调试过程中发现他选中的是6行。就是他选择的时候是按照合并单元格最大占有行数来选中，问题我现在清楚，因为合并单元格的原因。跪求高手帮我解决代码实现选中一行（这一行是合并单元格的第一行），急！急！——解决方案——————————————————–http://download.csdn.net/detail/veron_04/1627060——解决方案——————————————————–高手，现在不是这个看这个编程规范的问题，这我有书。能提供解决方案吗？谢谢——解决方案——————————————————–MARK!!——解决方案——————————————————–3楼的能详细点吗？谢谢，急死了——解决方案——————————————————–

OptionExplicitPrivatexlsAppAsExcel.Application'Excel应用对象PrivatexlsBookAsExcel.Workbook'Excel工作薄对象PrivatexlsSheetAsExcel.Worksheet'Excel工作表对象PrivateSubCommand1_Click()xlsApp.Range("B3:C3").SelectWithxlsApp.Selection.HorizontalAlignment=xlCenter.VerticalAlignment=xlBottom.WrapText=False.Orientation=0.AddIndent=False.IndentLevel=0.ShrinkToFit=False.ReadingOrder=xlContext.MergeCells=FalseEndWithxlsApp.Selection.MergeEndSub'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％'函数功能：打开指定的Excel文件'参数说明：xlsAPP：Excel应用对象'：xlsWork：Excel工作薄对象'：xlsSheet：Excel工作表对象'：strExcelFile：Excel文件路径'：strSheetName：工作表名'：strPWD：密码'：bolVisible：表的可见性'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％PrivateFunctionfunOpenExcelFile(ByRefxlsAppAsExcel.Application,_ByRefxlsWorkAsExcel.Workbook,_ByRefxlsSheetAsExcel.Worksheet,_ByValstrExcelFileAsString,_ByValstrSheetNameAsString,_ByValstrPWDAsString,_造物之前，必先造人。