帮忙修改代码

hotf4zhl

求助高手帮忙加个判断，如果某整列没有数据就停止复制。

附件中，例如AB列为空，AB列后面所有的数据不需要被字典复制。代码如下。


Sub test()
  Dim r%, i%, C, aa, ws
  Dim arr, brr
  Dim d As Object
  Dim ColAry, qq As Long, fc As Long
  Dim wwss As Worksheet
  
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  
  Worksheets("数据").Select
  
  Set d = CreateObject("scripting.dictionary")
  With Worksheets("数据")
  Worksheets("数据").Select
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    C = .Cells(61, .Columns.Count).End(xlToLeft).Column
    arr = .Range("g1:G" & r)
    For i = 61 To UBound(arr)
   
     If Len(arr(i, 1)) <> 0 Then
     

      If Not d.exists(arr(i, 1)) Then
        Set d(arr(i, 1)) = Range("a60").Resize(1, C)
      
      End If
      Set d(arr(i, 1)) = Union(d(arr(i, 1)), .Cells(i, 1).Resize(1, C))
   
      End If
    Next
  End With
  For Each aa In d.keys
    On Error Resume Next
    Set ws = Worksheets(aa)
    If Err Then
      Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
      ws.Name = aa
    End If
    On Error GoTo 0
    With ws
      d(aa).Copy .Range("a60")
      
      .[a60].CurrentRegion = .[a60].CurrentRegion.Value
    End With
    Next
    For Each wwss In Worksheets
    wwss.Columns("B:C").ColumnWidth = 6
    Next wwss
   
   
   
  Application.ScreenUpdating = True
  ActiveWorkbook.RefreshAll


End Sub

hotf4zhl

2楼 附上附件

蓝桥玄霜

能懂得以上的代码，不会连这么一个判断都不会吧。

3190496160

    arr = .Range("g1:ab" & r)
     C = UBound(arr, 2)

3190496160

不过，楼主这段代码应该还存在一些问题的，没有删除原工作表的代码，也没有判断工作表是否存在的代码，如果多次运行，会报错的
你用了一句容错语句，这句代码又是一个陷阱，呵呵

hotf4zhl

3190496160 发表于 2020-5-30 17:15
不过，楼主这段代码应该还存在一些问题的，没有删除原工作表的代码，也没有判断工作表是否存在的代码，如果 ...

朋友感谢你的代码，因为数据每周会增加，所以下周空白列可能不在AB列。有没有办法加个的判断整列为空的方法？

hotf4zhl

蓝桥玄霜 发表于 2020-5-30 13:12
能懂得以上的代码，不会连这么一个判断都不会吧。

朋友帮忙指点下！

3190496160

hotf4zhl 发表于 2020-5-30 19:43
朋友感谢你的代码，因为数据每周会增加，所以下周空白列可能不在AB列。有没有办法加个的判断整列为空的方 ...

办法肯定有，事先就应该说清楚的

hotf4zhl

3190496160 发表于 2020-5-30 21:46
办法肯定有，事先就应该说清楚的

不好意思，是我考虑不周。不知道朋友可以提供个方法？

3190496160

hotf4zhl 发表于 2020-5-31 12:24
不好意思，是我考虑不周。不知道朋友可以提供个方法？

方法很多，循环判断也行，end（xidown）也行