Excel VBA 遍历列中的单元格以查找整数

Question

我对 VBA 相当陌生，但我对 for 循环和 if-else 语句的工作原理有很好的理解。 我创建了一个工作表，需要遍历"C"的整个列以查找任何整数。 如果找到，我想在当前单元格值的末尾添加一个字母"s"。我有以下内容，但我猜我的语法不正确。 任何指针都将不胜感激。

Dim N As Long, i As Long, j As Long
N = Cells(Rows.Count, "A").End(xlUp).Row
j = 2
For i = 2 To N
If IsNumeric(Sheet7.Range("C") & i) = True Then
Sheet7.Range("C" & i) = Sheet7.Range("C" & i) & "s"
Next i
End If

提前致谢

Answer 1

您可以像这样使用单元格索引：

Dim N As Long, i As Long, j As Long 
N = Cells(Rows.Count, "A").End(xlUp).Row 
For i = 2 To N
if isNumeric(Cells(i,3)) then
Cells(i,3) = cells(i,3) & "S"
end if
Next

其中"i"是在循环中迭代的行，3 是"C"列。希望对您有所帮助。