[已解决]如何改一下代码，不重复，谢谢

fangniuji

Sub mm()
Dim Sht1 As Worksheet, Sht As Worksheet
Dim Myr&, n&, Arr
Application.ScreenUpdating = False
Set Sht1 = Sheet17
Sht1.[a3:ai10000].ClearContents
For Each Sht In Sheets
    If InStr(Sht.Name, "月") Then
        Myr = Sht.[a65536].End(xlUp).Row
        Arr = Sht.Range("a3:ai" & Myr)
        n = Sht1.[a65536].End(xlUp).Row + 1
        Cells(n, 1).Resize(UBound(Arr), UBound(Arr, 2)) = Arr
      
    End If
Next
Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-15 14:25

Sht1.[a2:ai10000].ClearContents
把A3改成A2

跳转到最佳答案楼层

fangniuji

运行代码两次，2011/6/1数据会重复，如何改一下，不重复，谢谢！！！

生存方式

看不懂，但这句Sht1.[a3:ai10000].ClearContents好像不对吧

sunjing-zxl

Sht1.[a2:ai10000].ClearContents
把A3改成A2

fangniuji

还是不行，谢谢帮忙！！！

fangniuji

可以谢谢！！！！！！！！！！！！！！