VBA 实现在表1中第一行查找某个值,并复制此值所在列数据到表1的Q列?
发布网友
发布时间：2024-05-02 12:20
共1个回答
热心网友
时间：2024-07-23 16:18
亲，代码如下：
把第三句中的“A”换成你要查找的值。
Sub test()Dim f As Range
Set f = Rows(1).Find("A")
If Not f Is Nothing Then
Columns(f.Column).Copy Columns("Q")
End If
End Sub
