Question

如何从A10复制到G列中的最后一个非空白单元格？我在＆＃34; Dim＆＃34;中看到了其他一些答案。但对我没用。

以下是我要做的事情：

以下是我尝试工作的代码。

Sub SelectLastRange()
'
' SelectLastRange Macro
'

'

lMaxRows = Sheets("PEDIDOS").Cells(Rows.Count, "B").End(xlUp).Row

Sheets("DATABASE").Range("A10:G").End(xlDown).Copy: Sheets("DESTINATION").Range("B" & lMaxRows + 1).PasteSpecial (xlPasteValues): Application.CutCopyMode = False

    End Sub

Answer 1

也许是这样的：

Sub CopyPaste()
Dim lastused As Long
Dim lastempty As Long

lastused = Sheets("DATABASE").Range("G" & Rows.Count).End(xlUp).Row
lastempty = Sheets("PEDIDOS").Range("B" & Rows.Count).End(xlUp).Row + 1

Sheets("DATABASE").Range("A10:G" & lastused).copy
Sheets("PEDIDOS").Range("B" & lastempty).PasteSpecial xlPasteValues

Application.CutCopyMode = False
End Sub

复制并粘贴到不同列

1 个答案: