excel VBA 提取指定列

lenawang

求助大神~~如何从原始表格按照要求和顺序提取信息到后一个表格呢~~

谢谢啦~~~

vic9

Sub eerr()
Dim i, arr, brr
arr = Sheets("原始表格").Range("a1:i10")
ReDim brr(1 To UBound(arr), 1 To 5)
    For i = 1 To UBound(arr)
        brr(i, 1) = arr(i, 1)
        brr(i, 2) = arr(i, 3)
        brr(i, 3) = arr(i, 2)
        brr(i, 4) = arr(i, 6)
        brr(i, 5) = arr(i, 7)
    Next
    Sheets("目标表格").[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

lenawang

vic9 发表于 2019-6-27 19:35
Sub eerr()
Dim i, arr, brr
arr = Sheets("原始表格").Range("a1:i10")

太腻害了~~还神速~~


万分感谢

lenawang

vic9 发表于 2019-6-27 19:35
Sub eerr()
Dim i, arr, brr
arr = Sheets("原始表格").Range("a1:i10")

大神~还要请教一下，如果我有一列数据本来是文本，怎么保证跑出来的结果还是文本格式

740688321

lenawang 发表于 2019-6-27 19:59
大神~还要请教一下，如果我有一列数据本来是文本，怎么保证跑出来的结果还是文本格式

抠excel单元格设置成文本格式