Excel：我想填充列B的内容，只有列B的值以F开头

我有两列不同的价值观， A和B，如果列B的值以字母F开始，我希望该值（以F开头的值）replace列A中的当前值。这是迄今为止我所拥有的VBA代码，不知道我是否朝着正确的方向前进。

Private Sub UpdateColumnA() Dim x As Long For x = A To Z If InStr(F, Sheet1.Range("$B$" & x), "thisvalue) > 0 Then Sheet1.Range("$A$" & x) = Sheet1.Range("$A$" & x) & "sometext" End If Next End Sub 

另外，我不确定哪些内容应该放在代码段“thisvalue”和“sometext”

Answer 1

 Private Sub UpdateColumnA() Dim x As Long lastRow = Sheet1.Cells(Sheet1.Rows.Count, 2).End(xlUp).Row For x = 1 to lastRow If Left(Sheet1.Range("B" & x), 1)= "F" Then Sheet1.Range("A" & x) = Sheet1.Range("B" & x) Next End Sub 

Answer 2

 Private Sub UpdateColumnA() Dim x As Long With Sheet1 For x = 1 To .Cells(.Rows.Count , 2).End(xlUp).Row If UCase(Left(.Cells(x, 2), 1)) = "F" Then .Range("$A$" & x) = .Range("$B$" & x) End If Next x End With End Sub