|
本帖最后由 laoau138 于 2017-4-21 21:12 编辑
VBA用数组把C列为1所对应B列名字自动填入G列
- Sub aaa()
- Dim arr, brr, i&, r&
- arr = [b1].CurrentRegion
- ReDim brr(1 To UBound(arr), 1 To 1)
- For i = 1 To UBound(arr)
- If arr(i, 2) = 1 Then
- r = r + 1
- brr(r, 1) = arr(i, 1)
- End If
- Next i
- [g1].Resize(r) = brr
- End Sub
复制代码
|
|