對於每個VBA excel它只會產生1個循環

Question

我有3個工作表，我必須比較第一個和第二個工作表中的單元格值，並在第三個工作表中寫入不同的值。

下面的代碼

Dim keyRangeSh1 As String 
Dim keyRangeSh2 As String 
Dim keyRangeSh3 As String 
Dim cellSh1 As Range 
Dim cellSh2 As Range 
Dim cellSh3 As Range 

rowSh1 = 2 
rowSh2 = 2 
rowSh3 = 2 

keyRangeSh1 = "C" & rowSh1 
keyRangeSh2 = "C" & rowSh2 
keyRangeSh3 = "C" & rowSh3 
For Each cellSh1 In Sh1.Range(keyRangeSh1) 
    For Each cellSh2 In Sh2.Range(keyRangeSh2) 
    'if 
    'rowsh1 = rowsh1 + 1 
    'keyRangeSh1 = "C" & rowsh1 
    'endif 
    Next cellSh2 
Next cellSh1 

它使第一輪，但它沒有回到第二單元

Answer 1

，你可以這樣做：

Option Explicit 

Sub main() 
    Dim sh1 As Worksheet, sh2 As Worksheet 

    Set sh1 = Worksheets("Sh1") '<--| change "Sh1" to your actual first sheet name 
    Set sh2 = Worksheets("Sh2") '<--| change "Sh2" to your actual second sheet name 

    With Worksheets("sh3") '<--| change "Sh3" to your actual third sheet name 
     .Range(Union(.Range(sh1.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers).Address), .Range(sh2.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers).Address)).Address).FormulaR1C1 = "='" & sh1.Name & "'!RC - '" & sh2.Name & "'!RC" 
     .UsedRange.Value = .UsedRange.Value 
    End With 
End Sub