Question

如果您能帮我解决这个问题，我将不胜感激。我试图让 vba 为我提供从 1 到单元格 G1 中的值以 1 为增量的所有数字，并将其填充到 C 列中。之后，我希望 vba 从 C1 开始检查 C 列中的每个单元格，看看是否值大于一个数字并填充到它旁边的列中（从 D1 列开始）

例如，单元格 G1 的编号为 5。

所以，我应该在 c 列中看到以下内容，即 1、2、3、4、5，在 DI 列中应该只看到大于 3 的单元格的值。所以这意味着只有值 4，并且 5 填充在列 D 中。

我非常感谢您的帮助，因为我对 VBA 还很陌生并且正在尝试掌握它。

谢谢。

Answer 1

试试这个：

Sub elyas()
    Dim i As Long, MagicNumber As Long
    Dim k As Long
    
    MagicNumber = 3
    k = 1
    
    For i = 1 To [G1]
        Cells(i, "C").Value = i
        If i > MagicNumber Then
            Cells(k, "D").Value = i
            k = k + 1
        End If
    Next i
End Sub

For 循环和 If 语句 Excel VBA

1 个答案: