老师帮我看下这段代码，错在哪里，最后有数，就可以运行，反之不运行

574755961

老师帮我看下这段代码哪有问题，最后一行有数就可以运行，没数就运行不了，

lsc900707

乱用CurrentRegion

不知道为什么

楼上版主说得很对啊，你还是先把基础知识再熟悉下

574755961

lsc900707 发表于 2018-8-16 19:19
乱用CurrentRegion

老师能帮我改下吗，谢谢

iwangyi

楼主将
arr = [a1].CurrentRegion
改为
arr = Sheet1.UsedRange
或者
arr = Sheet1.UsedRange
   n = [b65536].End(3).Row
    arr = Range("a1:ac" & n)

iwangyi

Sub Macro1()
'
' Dim i%, j%, arr, d As Object
    Application.DisplayAlerts = False
    'arr = [a1].CurrentRegion
    arr = Sheet1.UsedRange
    '或者
    'n = [b65536].End(3).Row
    'arr = Range("a1:ac" & n)
   
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        d(arr(i, 2) & vbTab & arr(i, 3) & vbTab & arr(i, 29)) = d(arr(i, 2) & vbTab & arr(i, 3) & vbTab & arr(i, 29)) + arr(i, 27)
    Next
    Sheet2.Activate
    [k1] = "合计"
    [h1].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
    [k1].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
    [h:h].TextToColumns [h1:j1]
    Application.DisplayAlerts = True
'
End Sub

iwangyi

更改后附件

iwangyi

更改后附件---------

iwangyi

更改后附件---------

iwangyi

range("A1")). RANGE().CurrentRegion
是以A1单元格扩展的数据区域，特别注意，数所区域之间不能出现空行或空列
sheet1.usderange
工作表1所有使用过的单元格区域
range(cells(),cells)
指的是指定的以第一个CELLS()为左上角起以第二个CELLS()为右下角的整块单元格区域。