在Excel VBA中剪切和粘贴单元格

Question

程序的功能是查找具有空单元格的第一行，该单元格旁边是需要在第26列的上一行中剪切和粘贴的数字。

- 我正在尝试运行一个遍历整个工作表的循环，并在复制和粘贴后删除该行。

- 如果里面已有数据，则会跳过它并继续。

- 第二种方法是我最有希望的，但我似乎无法找到如何运行Cells格式（x，1）

（方法一）

Dim x As Integer
x = 1
this = x - 1
rowdelete = x

If Cells(x, 1) = "" Then
Cells(x, 1).Select.Cut
Cells(x - 1, 26).PasteSpecial
Rows([rowdelete]).EntireRow.Delete

End If

（方法二）

Dim x As Integer
x = 1
this = x - 1
rowdelete = x

If Cells(x, 1) = "" Then
Cells(x, 1).Select.Cut
Cells(x - 1, 26).PasteSpecial
Rows([rowdelete]).EntireRow.Delete

End If

Answer 1

我不知道我是否只是遗漏了一些东西，但你的Method1和Method2看起来和我一模一样。我认为您的问题是您尝试粘贴到不存在的testFunc(id){ return '/profile/' + id;} 。定义所有Row 0和ranges或excel将采取当时活动的任何内容都是一种很好的做法。

尝试使用以下代码循环播放Col A中的空白单元格，并且不使用剪贴板，这样可以让事情变得更快。

cells