vba - 列AとCを比較しようとしています。列Cの値が列Aと等しくない場合は、列Eに貼り付けます

Question

Column A        Column C          Column E

1                 11               11


2                  1               34

3                 34               77

4                 4

5                 5

6                 77

7

8

9

10

私のコードは次のとおりです。私の問題は、列 B から等しくない値を取得できないことです。

Private Sub CommandButton1_Click()

Dim val1, val2 As String

For f = 1 To 10

 For g = 1 To 8

 val1 = Worksheets("Sheet1").Cells(f, 1)
 val2 = Worksheets("Sheet1").Cells(g, 3)

 If (val1 <> val2) Then
 Worksheets("Sheet1").Cells(g, 5) = val1

 End If

   Next g



 Next f



End Sub

Answer 1

以下のコードを試してください

Sub compare()

    Dim val1 As String, val2 As String

    For i = 1 To 10

            val1 = Worksheets("Sheet1").Range("A" & i)
            val2 = Worksheets("Sheet1").Range("C" & i)

            If (val1 <> val2) Then
               Worksheets("Sheet1").Range("E" & i) = val2
            End If

    Next

End Sub