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

Question

比如，有一个占有6列（A1：A6）的合并单元格，在vba代码中我录制宏的时候我想选中一行，比如就第一行，生成的代码是Rows（1）.select。但是我用代码实现选中一行的时候我用Rows（1）.select时候，我调试过程中发现他选中的是6行。就是他选择的时候是按照合并单元格最大占有行数来选中，问题我现在清楚，因为合并单元格的原因。
跪求高手帮我解决代码实现选中一行（这一行是合并单元格的第一行），急！急！

Answer 1

http://download.csdn.net/detail/veron_04/1627060

Answer 2

Option Explicit
Private xlsApp As Excel.Application      'Excel应用对象
Private xlsBook As Excel.Workbook        'Excel工作薄对象
Private xlsSheet As Excel.Worksheet      'Excel工作表对象Private Sub Command1_Click()
    xlsApp.Range("B3:C3").Select
    With xlsApp.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    xlsApp.Selection.Merge
End Sub
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
'函数功能：打开指定的Excel文件
'参数说明：xlsAPP：Excel应用对象
'        ：xlsWork：Excel工作薄对象
'        ：xlsSheet：Excel工作表对象
'        ：strExcelFile：Excel文件路径
'        ：strSheetName：工作表名
'        ：strPWD：密码
'        ：bolVisible：表的可见性
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
Private Function funOpenExcelFile(ByRef xlsApp As Excel.Application, _
                                 ByRef xlsWork As Excel.Workbook, _
                                 ByRef xlsSheet As Excel.Worksheet, _
                                 ByVal strExcelFile As String, _
                                 ByVal strSheetName As String, _
                                 ByVal strPWD As String, _
                                 ByVal bolVisible As Boolean) As Boolean
On Error GoTo errFun
    funOpenExcelFile = False
    Set xlsApp = CreateObject("Excel.Application")
    Set xlsWork = xlsApp.Workbooks.Open(strExcelFile, , False, , strPWD, strPWD)
    Set xlsSheet = xlsBook.Worksheets(strSheetName)
    xlsSheet.Activate
    xlsApp.Visible = bolVisible
    funOpenExcelFile = True
    Exit Function
errFun:
    funOpenExcelFile = False
End Function
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
'函数功能：关闭指定的Excel文件
'参数说明：xlsAPP：Excel应用对象
'        ：xlsWork：Excel工作薄对象
'        ：xlsSheet：Excel工作表对象
'        ：bolSave：是否保存
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
Private Function funCloseExcelFile(ByRef xlsApp As Excel.Application, _
                                 ByRef xlsWork As Excel.Workbook, _
                                 ByRef xlsSheet As Excel.Worksheet, _
                                 ByVal bolSave As Boolean) As Boolean
On Error GoTo errFun
    If bolSave Then xlsBook.Save
    Set xlsSheet = Nothing
    xlsBook.Close
    Set xlsBook = Nothing
    Set xlsApp = Nothing
    funCloseExcelFile = True
    Exit Function
errFun:
    funCloseExcelFile = False
End FunctionPrivate Sub Form_Load()
    Dim bolP As Boolean
    '打开Excel文件
    bolP = funOpenExcelFile(xlsApp, xlsBook, xlsSheet, App.Path & "\111.xls", "Sheet1", "", True)
End Sub

Answer 3

OMG,各位大侠是没看懂我提的问题吗？楼上的你这代码是合并单元格和打开excel。

Answer 4

操作单元格很简单的啊，看看这个：
http://download.csdn.net/detail/veron_04/2341786