用VBA写将查找值所在的列赋值给数组
182浏览 · 2024-05-10 09:14:16
可以使用以下VBA代码将查找值所在的列赋值给数组：
Sub FindColumn()
Dim searchValue As Variant
Dim lastColumn As Long
Dim columnArray() As Long
Dim i As Long
searchValue = "value to search for"
lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
ReDim columnArray(1 To lastColumn)
For i = 1 To lastColumn
If Cells(1, i).Value = searchValue Then
columnArray(i) = i
columnArray(i) = 0
End If
Next i
End Sub
在上面的代码中，`searchValue`是要查找的值，`lastColumn`是工作表中最后一列的列号。然后，使用`ReDim`语句调整`columnArray`数组的大小以匹配工作表的列数。
在`For`循环中，使用`Cells`函数遍历工作表中的每一列。如果单元格中的值等于`searchValue`，则将列号存储在`columnArray`数组中的相应位