Question

我是Excel Macro的初学者。我只使用了录制宏功能，稍微调整了一些等等。

这次我必须从头开始，我迷路了。

我正在寻找一种简单的方法来完成以下内容：如果给定单元格的值（比如单元格U）不是空白，则将整行剪切并粘贴到另一个工作表中并保存更改。

你能帮我建一下这个宏。对于这个我来说，我有一个非常短暂的转变，我已经头痛了。我热衷于学习，但我缺少基础知识。我打算很快上课。

非常感谢你的帮助！非常感激：）麦克

Answer 1

正如西瓦所说，这不适合我。话虽这么说，我碰巧有一些旧的代码，我可以很容易地复制/粘贴，这对你有利。这可以在Sheet 1上的数据列U的所有行中动态工作：

Sub CutCopyPaste()
Dim x as Integer
Dim y As Integer
Dim i as Integer

x = Sheets("Sheet1").Range("U" & Rows.Count).End(xlUp).Row
y = Sheets("Sheet2").Range("U" & Rows.Count).End(xlUp).Row

For i = 1 to x
    If Not Range("U" & i).value = "" Then
        Range("U" & i).EntireRow.Cut Sheets("Sheet2").Range("A" & y)
        Workbooks("your workbook.xlsm").Save
        y = y + 1
    End If
Next i
End Sub

如果给定单元格的值不为空，则将整行剪切并粘贴到另一个工作表中

1 个答案: