Question

想要使用vba宏处理Excel电子表格，包括许多列。在电子表格中，这些列的标题表示属性，例如“ P.＃”，其中＃从1开始到更高的值，该值可能因一个电子表格的不同而有所不同。

例如，以下电子表格表：

Excel column    --- U   V   W   --- AX  AY  ---
headers         --- T.1 P.1 C.1     T.2 P.2 ---
date            --- --- --- --- --- --- --- ---

我想提取P.＃列并将其复制到另一个电子表格中。我知道如何从一个电子表格复制到另一个电子表格，我的问题是在＃更改时拾取P列，然后将该列复制到另一个电子表格（相同的工作簿）。我被包裹在车轴上！

Answer 1

这是我的建议：

Dim c As Range, v

For Each c In Application.Intersect(ActiveSheet.Rows(2), ActiveSheet.UsedRange)
    v = Trim(c.Value)
    If v Like "P.#" Or v Like "P.##" Then
        Debug.Print v & " found at " & c.Address & _
                     " on '" & c.Parent.Name & "'"
    End If
Next c

查找标题从一列到下一列的列

1 个答案: