VBA如果单元格以字母do开头

Question

你好，我看到了类似的主题，但不是我想要的。我只想要一个If条件，比如"；如果单元格以R开头，那么"我做了

Sub fgrt()
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim lColumn As Long
lColumn = Cells(2, Columns.Count).End(xlToLeft).Column
Dim J As Double
Dim I As Double

For I = 0 To lColumn

For J = 3 To LastRow
If Left(Cells(J, I).Value, 1)) = "R" Then
Cells(J, I).Value = Cells(J, 169).Value
End If
Next J

Next I
End Sub

线路

If Left(Cells(J, I).Value, 1)) = "R" Then

返回错误

谢谢你的回答！

Answer 1

我更正了语法并更改了If的位置。不，它有效。

Sub fgrt()
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim lColumn As Long
lColumn = Cells(2, Columns.Count).End(xlToLeft).Column
Dim J As Double
Dim I As Double
For I = 1 To lColumn
If Left(Cells(2, I).Value, 1) = "R" Then
For J = 3 To LastRow
Cells(J, I).Value = Cells(J, 169).Value
Next J
End If
Next I
End Sub