VBa将所选内容复制到另一个sheet的a列空单元格

你可以使用以下代码将所选内容复制到另一个sheet的a列空单元格：

Sub CopyToEmptyCell()
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim lastRow As Long
Dim i As Long

Set wsSource = ActiveSheet
Set wsDest = Sheets("Sheet2")

lastRow = wsDest.Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To Selection.Cells.Count
If Selection.Cells(i).Value <> "" Then
wsDest.Cells(lastRow + 1, "A").Value = Selection.Cells(i).Value
lastRow = lastRow + 1
End If
Next i
End Sub

相关问题

VBa将所选内容复制到另一个sheet的a列开始的空单元格

您可以使用以下代码将所选内容复制到另一个sheet的a列开始的空单元格：

Sub CopyToNewSheet()
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim lastRow As Long
Dim destRow As Long

'获取源工作表和目标工作表
Set wsSource = ActiveSheet
Set wsDest = Sheets("Sheet2")

'获取源工作表最后一行
lastRow = wsSource.Cells(Rows.Count, "A").End(xlUp).Row

'从第一行开始查找目标工作表中的空单元格
destRow = 1
Do While wsDest.Cells(destRow, "A").Value <> ""
destRow = destRow + 1
Loop

'复制所选内容到目标工作表的空单元格中
wsSource.Range("A1:A" & lastRow).Copy wsDest.Range("A" & destRow)

'提示复制完成
MsgBox "复制完成！"
End Sub

VBa将所选内容复制到另一个sheet的空单元格

您可以使用以下代码将所选内容复制到另一个工作表的空单元格：

Sub CopyToEmptyCell()
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim copyRange As Range
Dim destRange As Range

Set wsSource = ActiveSheet '源工作表
Set wsDest = Sheets("Sheet2") '目标工作表
Set copyRange = Selection '所选范围

'在目标工作表中查找第一个空单元格
Set destRange = wsDest.Cells.Find(What:="", After:=wsDest.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

'将所选内容复制到目标工作表的空单元格中
copyRange.Copy destRange

End Sub