如何通过VBA来实现根据一列数据最后一行位置自动填充指定列

大橙子711

如图，现在想通过VBA来实现B、D两列数值填充到A列最后一行的位置，如何实现呢？

lzqmsy

Sub tianchong()
For i = 1 To [A65536].End(3).Row - 1
Cells(i + 1, 2) = Cells(i, 2)
Cells(i + 1, 4) = Cells(i, 4)
Next
End Sub

microyip

1. Sub 填充()
   
2.     Dim vData As Variant, nRow As Integer
   
3.     With [A1].CurrentRegion
   
4.         vData = .Value
   
5.         For nRow = 2 To UBound(vData)
   
6.             vData(nRow, 2) = vData(1, 2)
   
7.             vData(nRow, 4) = vData(1, 4)
   
8.         Next
   
9.         .Formula = vData
   
10.     End With
    
11. End Sub

复制代码