公式中With Worksheets("sheet1")这个代码能否不指定工作表名称

小年玩卡

如何更改为不指定工作表名称，要在不同工作表中做按钮，

Sub test()
  Dim r%, m%
  Dim arr, brr
  With Worksheets("sheet1")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("g4:i" & r)
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range("c5:e" & r) = ""
    brr = .Range("a5:e" & r)
    For m = 1 To UBound(brr)
      If Len(brr(m, 2)) <> 0 And brr(m, 2) <> 0 Then
        For j = 1 To UBound(arr)
          If brr(m, 2) >= arr(j, 2) And brr(m, 2) <= arr(j, 3) Then
            brr(m, 3) = brr(m, 3) & "," & arr(j, 1)
          End If
        Next
      End If
    Next
    For m = 1 To UBound(brr)
      If Len(brr(m, 3)) <> 0 Then
        brr(m, 3) = Mid(brr(m, 3), 2)
      End If
    Next
    .Range("a5:e" & r) = brr
  End With
End Sub

红旗雪

用ActiveSheet

小年玩卡

红旗雪 发表于 2018-10-14 16:22
用ActiveSheet

非常感谢，知道了