首先,我有值和公式的多张纸。我已经使用VBA来清理干净的数据,工作正常。例如“Sheet1”,从第3行到第100列和H列到K是我有值的地方。现在,我有一个公式在行3和列B到F,链接到列H到K上的值。我有问题复制第3行并粘贴公式到工作表上的最后一行。复制和粘贴行和列(带式)和粘贴到最后行中的VBA
其次,我有12个工作表。他们有不同的值和公式从“表1”。但我希望同样的行为适用于所有12张纸,如“纸张1”。
这里是我使用复制和粘贴我的价值的代码(但只复制一行我想它去片的底部。):
Sub formula_format (data_sheet As String, row_num_start As Integer, column_num_start As Integer, row_num_end As Integer, column_num_end As Integer)
Sheets(data_sheet).Select
For Row = row_num_start To row_num_end
If Cells(Row, column_num_start).Value2 = "" Then
Range(Cells(Row - 1, column_num_start), Cells(Row - 1, column_num_end)).Copy
ActiveSheet.Cells(Row, column_num_start).Select
ActiveCell.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Exit For
End If
Next Row
End Sub
这段代码复制的第一行和粘贴它到下一行。我需要继续阅读最后一页。
在此先感谢。对不起,很长的职位。它是我的第一篇文章!
里面你的'IF'块中的代码将退出For循环的第一次的行和列=“”从而停止代码中的'退出For'。所以,我的第一个建议是删除'出口For' –
感谢Scott!我已经完成了你的建议。它的作品(这让我感到高兴,因为我一直在看这个问题2天)! –