Excelのvba内のifステートメントを使用して、セル値に基づいてテキスト配列を連結または結合する

Question

VBAプログラミングの初心者で、Ifステートメント内の値に基づいてセルにテキストを追加しようとしています。私はfindステートメントを使用しようとしましたが、それはヌル値で終了し、最終的に、私は3つの異なる値のためにこれを必要とします。変数として "MyCell"を定義する必要があるかどうかはわかりません。いずれにしてもうまくいきませんでした。下のコードを実行すると、MyCellは無効な修飾子です。

Sub Macro2() 
' 
' Macro to insert Text into Cells 

Dim i As Long 
Dim MyCell As String 

Worksheets("Tax").Active 
For i = 2 To Range("H" & Rows.Count).End(xlUp).Row 
    ActiveCell.Select 
    MyCell = ActiveCell.Value 

     If MyCell.Value = "State Tax" Then 
      MyCell = Join("State Tax - ", Range(i, "D")) 

     ElseIf MyCell.Value = "SUI" Then 
      MyCell = Join("SUI - ", Range(i, "D")) 

     ElseIf MyCell.Value = "Local Tax" Then 
      MyCell = Join("Local Tax - ", Range(i, "D")) 
     End If 

    Next i 
End Sub 

Answer 1

myCellは必要ありません。あなたがした場合は、文字列ではなく範囲としてインスタンス化します。これを試して、必要なものを達成したかどうかを確認してください。

Sub Macro2() 
' 
' Macro to insert Text into Cells 

Dim i As Long 

With Worksheets("Tax") 
For i = 2 To .Range("H" & Rows.Count).End(xlUp).Row 
     If .Range("H" & i).Value = "State Tax" Then 
      .Range("H" & i).Value = "State Tax - " & .Range("D" & i).Value 

     ElseIf .Range("H" & i).Value = "SUI" Then 
      .Range("H" & i).Value = "SUI - " & .Range("D" & i).Value 

     ElseIf .Range("H" & i).Value = "Local Tax" Then 
      .Range("H" & i).Value = "Local Tax - " & .Range("D" & i).Value 
     End If 

    Next i 
End With 
End Sub