非空单元格所在行自动加边框，求解救！！！

1657232430

如上图，为非空单元格所在行加边框。
备注：行数不是固定的，三个按钮代码不同，所得结果也是不同的。
代码如下：
Sub test3D()
Dim r%, i%
  Dim arr, brr
  With Worksheets("源数据")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("A2:D" & r)
    ReDim brr(1 To UBound(arr), 1 To 5)
    m = 0
    For i = 1 To UBound(arr)
      If arr(i, 2) = "足金3D硬金" Then
        m = m + 1
        brr(m, 1) = m
        brr(m, 2) = arr(i, 1)
        brr(m, 3) = arr(i, 2)
        brr(m, 4) = arr(i, 3)
        brr(m, 5) = arr(i, 4)

      End If
    Next
  End With
  With Worksheets("入库单")
    Sheet2.Range("a5:j50").ClearContents
    .Range("a5").Resize(UBound(brr), UBound(brr, 2)) = brr

    Sheet2.Cells(r + 1, 2) = "合计"
    Sheet2.Cells(r + 1, 5) = Application.WorksheetFunction.Sum(Range("e5:e" & r))
  End With

End Sub

answer6141

if range() <> "" then Range().Borders.LineStyle = 1

excel海

你是用数组写入，写在chang事件里会出错，我用了个比较笨的办法，看其他高手有好办法没

1657232430

感谢 excel海

wodewan

你CHANGE事件里已经有代码，在下面加两句Range("a5:J" & UsedRange.Rows.Count).Borders.LineStyle = 0Range("a5:J" & myr + 1).Borders.LineStyle = 1
但一定要加在Sheet2.Cells(myr + 1, 5) = Application.WorksheetFunction.Sum(Range("e5:e" & myr))这句后面
附件供参考

1657232430

wodewan 发表于 2020-1-10 16:11
你CHANGE事件里已经有代码，在下面加两句Range("a5:J" & UsedRange.Rows.Count).Borders.LineStyle = 0Rang ...

牛，太强了！！！

YZC51

请参考

1657232430

YZC51 发表于 2020-1-10 20:45
请参考

谢谢你哦！

YZC51

1657232430 发表于 2020-1-11 09:16
谢谢你哦！

不客气！谢谢花花鼓励啦！