已编辑——if 语句 vba——如果单元格有值，如何跳过它

Question

我已经编辑了我的原始帖子，并为您提供了更多详细信息。基本上我有这个代码：

For x = 1 To 1000
If track.Cells(x, 1) = Date Then
    If track.Cells(x, 2) = "EU" Then
        If track.Cells(x, 3) = "ABCDE" Then
           ST.Range("ABCDE").Copy
           EU.Cells(41, 2).PasteSpecial
           Call ActivateSheet
           track.Range(Cells(x, 4), Cells(x, 9)).Copy
               **For i = 42 To 1000
                  If EU.Cells(42 + i, 2) Then
                     EU.Cells(42 + 1, 2).PasteSpecial
                  End If
               Next i**
        End If
    End If    
End If Next x

我在代码的这个特定部分遇到了问题：

For i = 42 To 1000
                  If EU.Cells(42 + i, 2) Then
                     EU.Cells(42 + 1, 2).PasteSpecial
                  End If
               Next i

这基本上是从同一工作簿上的另一个工作表复制一系列单元格，并将其放在另一个工作表上。现在，我遇到问题的代码会发生什么，我希望它在粘贴第一个之后粘贴到下面的行。还有其他方法可以实现吗？我才刚刚开始自学 VBA 编码。任何建议将不胜感激。

Answer 1

你不需要循环值来找到最下面一行，你可以简单地从下往上一次。

替换这个：

**For i = 42 To 1000
   If EU.Cells(42 + i, 2) Then
      EU.Cells(42 + 1, 2).PasteSpecial
   End If
Next i**

有了这个：

Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial

它是如何工作的：

Cells(rows.count,2) 是工作表和第 2 列中的最后一行（现在的 B1048576 或过去的 B65536）

.End(XLup) 告诉它向上直到数据，就像 Excel 中的 CTRL-UP 一样

这告诉我们最后一行包含数据，我们不想在这里粘贴，因为你会覆盖你的最后一行：

.offset(1,0) 告诉它从原来的位置移开 1 行和 0 列。

这已经算出你需要粘贴的地址了，然后我们专门粘贴。

希望有帮助

要真正了解它是如何工作的，请使用 CTRL-G 转到 VB 编辑器中的即时窗口并粘贴以下代码：

?Cells(Rows.Count, 2).address
?Cells(Rows.Count, 2).End(xlUp).address
?Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).address

在每一行后按回车键，您将看到添加到该行的每个代码部分如何改变结果

Answer 2

如果您的意思是您只想更改 空 的单元格，您可以使用IsEmpty()，例如：

For Each cell In rng
    If IsEmpty(cell) Then 'To alter cells containing value use If Not IsEmpty...
    ' Do something
    End If
Next

或者如果它们是单元格值包含空格的可能性，您可以使用

If trim(cell & vbnullstring) = vbnullstring Then
' Do something
End If

---

要跳过 value 类型为 Text 的单元格，请使用 IsText

If Not Application.IsText(cell) Then
' Do Something
End If

---

要仅更改 仅包含数字的 值，请使用 IsNumeric

If IsNumeric(cell) Then
' Do something
End If