[英]Vba intersection of heading row and column of target cell to get the heading of column
[英]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.