如何通过vba从excel中的普通单元格中识别列标题答案

【问题标题】：How to identify a column heading from a normal cell in excel through vba如何通过vba从excel中的普通单元格中识别列标题
【发布时间】：2010-08-31 20:50:01
【问题描述】：

我有一张表格，我在其中从两个不同的表格的单元格中输入值。第一个表格有 3 个字段，所以 sheet1.range 从 A1 到 c23 填充了这个表格值。现在第二个表格有两个字段，我将 Sheet1 从 A25 填充到 B37。

现在每个表都在 A1、B1、C1 为第一个表和 A25、B25 为第二个表提供列标题。所以我想遍历这些条目，但是当我遇到 table2 条目或更具体地说是一列时标题我应该停下来并遍历它们以完全不同的过程。

任一表的行数都不是固定的。

【问题讨论】：

标签： excel vba

【解决方案1】：

您可以逐行处理每个表格，并使用第一列中的空单元格作为中断标准。但是，除非您想搜索到第 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

【讨论】：