簡體   English   中英

如何通過VBA從Excel中的正常單元格中識別列標題

[英]How to identify a column heading from a normal cell in excel through vba

我有一張工作表,我要在兩個不同表的單元格中輸入值。第一個表有3個字段,因此從A1到c23的sheet1.range被該表值填充;現在第二個表有兩個字段,我從A25到B37。

現在每個表都給我第一個表的列標題為A1,B1,C1,第二個表為A25,B25,所以我想遍歷此條目,但是當我遇到table2條目或更具體地說是列標題時,我應該停止並遍歷它們以進行完全不同的過程。

每個表的行數都不固定。

您可以逐行處理每個表,並在第一列中使用一個空單元格作為中斷標准。 但是,除非您要搜索直到第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

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM