返回列表 上一主題 發帖

[發問] 如何由最後一列數起去複製指定數量

本帖最後由 stillfish00 於 2013-5-8 03:44 編輯

回復 1# luke
  1. Sub TEST()
  2. Dim r As Long
  3. With Sheets("sheet1")
  4.   .[K:L].ClearContents
  5.   r = Application.Max(.Cells(.Rows.Count, "F").End(xlUp).Row, .Cells(.Rows.Count, "G").End(xlUp).Row)
  6.   .[K1].Resize(.[B2], 2) = .Cells(r - .[B2] + 1, "F").Resize(.[B2], 2).Value
  7. End With
  8. End Sub
複製代碼

TOP

回復 4# GBKEE
是的,感謝修正。

TOP

        靜思自在 : 閒人無樂趣,忙人無是非。
返回列表 上一主題