运行VBA代码时出现‘Compile Error: For without Next’编译错误求助

你的代码存在两处关键问题，导致编译错误：

• 拼写错误：xIToLeft是笔误，正确写法为xlToLeft（注意是小写字母l，不是大写I）
• For Each循环未闭合：缺少对应循环变量的Next语句，循环变量是rng，因此需要添加Next rng

修正后的完整代码如下：

Sub RenameHeadersZoomInfo()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.ActiveSheet
    
    Dim rng As Range
    Dim LastCol As Long
    LastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    For Each rng In ws.Range(ws.Cells(1, 1), ws.Cells(1, LastCol))
    
        Select Case rng.Value
            Case "Company Name"
                rng.Value = "Name"
            Case "Country"
                rng.Value = "BillingCountry"
            Case "City"
                rng.Value = "BillingCity"
            Case "State"
                rng.Value = "BillingState"
            Case "LinkedIn Company Profile URL"
                rng.Value = "LinkedinCompanyPage__c"
            Case "Owner"
                rng.Value = "Owner.Id"
            Case "Primary Sub-Industry"
                rng.Value = "LinkedinIndustry__c"
            Case "Company HQ Phone"
                rng.Value = "Phone"
            Case "NAICS Code 1"
                rng.Value = "NAICSCode_1__c"
            Case "NAICS Code 2"
                rng.Value = "NAICSCode_2__c"
            Case "Show"
                rng.Value = "Description"
                
        End Select
    Next rng ' 补充循环闭合语句
                
End Sub

内容的提问来源于stack exchange，提问作者Alexandre Brandt