Question

这是我当前的宏：

Sub Macro1（）

Dim newRow As Integer
Dim rng As Range
Set rng = Selection

newRow = InputBox("Paste Where?")


Workbooks("SSO_TFR_SUMMARY").Worksheets("Sheet1").Cells(newRow, 4).Value = Worksheets("Main Circuit").Cells(rng.Row, 15).Value
Workbooks("SSO_TFR_SUMMARY").Worksheets("Sheet1").Cells(newRow, 5).Value = Worksheets("Main Circuit").Cells(rng.Row, 16).Value
Workbooks("SSO_TFR_SUMMARY").Worksheets("Sheet1").Cells(newRow, 6).Value = Worksheets("Main Circuit").Cells(rng.Row, 6).Value
Workbooks("SSO_TFR_SUMMARY").Worksheets("Sheet1").Cells(newRow, 7).Value = Worksheets("Main Circuit").Cells(rng.Row, 17).Value

End Sub

我从一个工作簿中的4个单元格中获取数据并将其粘贴到新工作簿中。选择要复制的行工作正常，因为实际上没有简单的方法可以区分需要复制的内容。目前，宏让我进入要在新工作簿中粘贴数据的行。如何在每次运行时修改此搜索并自动进入下一个可用点？

我搜索并找到了多个解决方案，这些解决方案将搜索下一个空单元格，但我无法让它们工作。

提前致谢！

Answer 1

<强>未测试

启动一个宏，需要它来查找并粘贴到D列中的下一个可用单元格

1 个答案: