如何使用VBA在EXCEL中的活动行中选择要粘贴到单独工作表上的列？

我已经知道了如何复制和粘贴特定的单元格，但是，我在根据当前选择复制相对单元格时遇到了麻烦。这是我的代码，我在选择时遇到了问题

Sub LogPosition()
Dim rngStart As Range
 Set rngStart = ActiveCell
Sheets("Charts").Select
ActiveSheet.Range("A148").Select
Selection.Copy
Range("T" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Sheets("Portfolio").Select
    rngStart.Select
ActiveCell.Select
Selection.Copy
Sheets("Charts").Select
Range("U" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Range("A159").Select
Selection.Copy
Range("V" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Sheets("Portfolio").Select
    rngStart.Select


Range("G").Select
ActiveCell.Copy
Sheets("Charts").Select
Range("X" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Sheets("Portfolio").Select
    rngStart.Select
End Sub

---

什么意思

在活动行中选择列

？它们与您的代码无关。它们是相关的。谢谢，但我想出来了<代码>范围（“G”和（ActiveCell.Row））。选择ActiveCell.Copy