如何識別excel中正常單元格的列標題通過vba

Question

我有一張表單，其中我從兩個不同的表格中輸入單元格中的值。第一個表格有3個字段，所以sheet1.range從A1到c23被填充用這個表值。現在第二張表有兩個字段，我填寫Sheet1從A25到B37。

現在，每個表格都給出了第一個表的A1，B1，C1和第二個表的A25，B25的列標題。所以我想遍歷這些條目，但是當我遇到table2條目或更具體地專欄標題我應該停下來，並通過他們完成一個不同的過程。

任一表的行數不固定。

Answer 1

您可以逐行處理每個表，並使用第一列中的空單元格作爲中斷標準。但是你必須asume行或表的恆定數量的絕對最大值在您的工作表，除非你想搜索，直到行65K ....例如：

Sub Test() 
Dim MyR As Range, Idx As Integer 

    Set MyR = [A1] 
    Idx = 1 

    Debug.Print "Header 1 = " & MyR(Idx, 1) 

    'advance to end of table 
    Do While MyR(Idx, 1) <> "" 
     Idx = Idx + 1 
    Loop 

    'advance to next header (could be one or more blank lines) 
    Do While MyR(Idx, 1) = "" 
     Idx = Idx + 1 
    Loop 

    Debug.Print "Header 2 = " & MyR(Idx, 1) 

    'etc 

End Sub 

希望幫助....好運氣 - MikeD