[已解决]修改vba

xhuang

HI,各位，以下vba只能汇总在当前excel里面，我现在想将sheet1 a列数据，汇总到sheet2 b列出来，
如何修改，vba语言如下，先谢了！


Sub test()
    Dim d As Object
    Dim i As Long
    Dim ar
    On Error Resume Next
    Set d = CreateObject("scripting.dictionary")
    ar = Range("a1:a" & Range("a65536").End(xlUp).Row)
    For i = 1 To UBound(ar)
        d(ar(i, 1)) = ""
    Next i
    Range("b:b").Clear
    Range("b1").Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub

最佳答案

月排行榜 / 总排行榜

grf1973

2015-3-9 15:25

Sub test()
    Dim d As Object
    Dim i As Long
    Dim ar
    On Error Resume Next
    Set d = CreateObject("scripting.dictionary")
    ar = Range("a1:a" & Range("a65536").End(xlUp).Row)
    For i = 1 To UBound(ar)
        d(ar(i, 1)) = ""
    Next i
    Sheet2.Range("b:b").Clear
    Sheet2.Range("b1").Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub

跳转到最佳答案楼层

grf1973

Sub test()
    Dim d As Object
    Dim i As Long
    Dim ar
    On Error Resume Next
    Set d = CreateObject("scripting.dictionary")
    ar = Range("a1:a" & Range("a65536").End(xlUp).Row)
    For i = 1 To UBound(ar)
        d(ar(i, 1)) = ""
    Next i
    Sheet2.Range("b:b").Clear
    Sheet2.Range("b1").Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub

xhuang

grf1973 发表于 2015-3-9 15:25
Sub test()
    Dim d As Object
    Dim i As Long

看来得学习学习，这么简单都不会，谢谢您！