Andy2483

回復 20# sschristy


    謝謝前輩繼續一起學習
後學建議如下:

With sh2.[B65536].End(3)(2).Resize(n, 6)
   .Value = Crr
   sh2.Activate
   .Select
   With .Cells(.Count + 1)
      .Value = Now: .Font.ColorIndex = 2
      '↑令B欄最後加一格內容為 當下時間的儲存格,令字色為白色
      '也可以令儲存格內容為空白字元.Value = " "
      '這樣的方式比較不會導致篩選功能資料不完整(空列易導致資料中斷)
   End With
End With

下載 (103.42 KB)

2023-12-25 09:55