將數據復制並粘貼到可見的單元格中

Question

我是VBA的新手，我想將標題列下方的可用數據從L列剪切到S列，並將其粘貼到同一張表的D列至K列中。 請注意，這是一個過濾范圍，並且只能從可見的單元格中剪切和粘貼數據。 另外，請注意標題欄不應包含在內。 有人可以幫忙嗎？

Answer 1

怎么樣：

Sub foo()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
'declare and set your worksheet, amend as required
LastRow = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row
'get the last row with data on Column L
ws.Range("L2:S" & LastRow).SpecialCells(xlCellTypeVisible).Copy
'copy visible cells
ws.Range("D1").PasteSpecial xlPasteAll
'paste into D1
End Sub

更新：

除了您最近的評論，我相信以下內容可以滿足您的期望：

Sub foo()
Dim LastRow As Long
Dim Rng As Range, cell As Range
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
'declare and set your worksheet, amend as required
LastRow = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row
'get the last row with data on Column L
Set Rng = ws.Range("L2:S" & LastRow).SpecialCells(xlCellTypeVisible)
For Each cell In Rng
    cell.Copy ws.Range(cell.Address).Offset(0, -8)
Next
End Sub