VBA将粘贴范围复制到具有内容的行的相应范围中
提问于 2015-06-25 02:58:10
我有一个名为"SicknessRecordGraded“的电子表格，它有不同的行数。
列A(1-6)，有原始内容要计算.
然后从I(9-33)列中得到一系列计算AG中信息的公式。
我正在准备一个vba宏，以自动将从in的公式范围复制到am中有内容的每一行中。
我一直试图按以下方式编写宏。我有使用.resize函数复制正确的范围，但是我还没有弄清楚如何粘贴到正确的范围中。
Public Sub experiment2()
Dim rw As Long
rw = 3
' Select initial sheet to copy from
Sheets("SicknessRecordGraded").Select
' Find the last row of data - xlUp will check from the bottom of the spreadsheet up.
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' For loop through each row
For x = 1 To FinalRow
Cells(rw, 9).Resize(1, 33).Copy ' Resize from intial range. Columns I - AG.
NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 'Continue incrementing through the rows.
Cells(NextRow, 1).Select ' Find the next row.
ActiveSheet.Cells(NextRow, "I").PasteSpecial xlPasteAll ' Paste information.
Sheets("SicknessRecordGraded").Select 'Reselect sheet to copy from. Probably uneccessary.
Next x
End Sub我假设要修改的内容是
ActiveSheet.Cells(NextRow, 1).PasteSpecial xlPasteAll ' Paste information.若要包含其他范围函数，请执行以下操作。
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-06-25 03:52:52
如果您希望启动粘贴的范围是Cells(NextRow, 1)，那么只需使用：
ActiveSheet.Cells(NextRow, 1).PasteSpecial xlPasteAll或者：
ActiveSheet.Paste Cells(NextRow, 1)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/31048422
复制相关文章
腾讯云开发者
