Excel VBA添加ElseIf语句后Sheet3/Sheet4无法复制粘贴，求排查

嘿，我帮你梳理了这段VBA代码里的几个关键问题，正是它们导致Sheet3和Sheet4无法正常接收复制的数据：

核心错误点 #

• 大小写不匹配导致分支不触发：
  第三个ElseIf判断中，你写的是"New zealand"，但前面用UCase()把Sheet1单元格B列的值转成了大写。这时候大写的单元格内容和大小写混合的字符串永远不会匹配，所以Sheet4的分支根本不会执行！
  解决方法：把对比字符串改成全大写"NEW ZEALAND"，或者统一用UCase()包裹对比值，比如UCase(Sheets("Sheet1").Cells(i, "B").Value) = UCase("New zealand")。

• 未限定Rows.Count的所属工作表：
  代码中Range("A" & Rows.Count)没有指定对应的工作表，当执行到Sheet3/Sheet4的分支时，如果当前激活的工作表不是目标表，Rows.Count会读取激活表的行数，导致End(xlUp)定位错误，找不到正确的插入位置。
  解决方法：给每个目标表的Rows.Count加上工作表限定，比如Sheets("Sheet3").Rows.Count。

修改后的完整代码 #

Sub CopyDataByCountry()
    Dim i As Long, LastRow As Long
    ' 明确变量类型，避免变体类型的潜在问题
    LastRow = Sheets("Sheet1").Range("A" & Sheets("Sheet1").Rows.Count).End(xlUp).Row
    Sheets("Sheet2").Range("A2:I500").ClearContents
    
    For i = 2 To LastRow
        Select Case UCase(Sheets("Sheet1").Cells(i, "B").Value)
            Case "HONG KONG"
                Sheets("Sheet1").Cells(i, "D").EntireRow.Copy _
                    Destination:=Sheets("Sheet2").Range("A" & Sheets("Sheet2").Rows.Count).End(xlUp).Offset(1)
            Case "UNITED KINGDOM"
                Sheets("Sheet1").Cells(i, "D").EntireRow.Copy _
                    Destination:=Sheets("Sheet3").Range("A" & Sheets("Sheet3").Rows.Count).End(xlUp).Offset(1)
            Case "NEW ZEALAND"
                Sheets("Sheet1").Cells(i, "D").EntireRow.Copy _
                    Destination:=Sheets("Sheet4").Range("A" & Sheets("Sheet4").Rows.Count).End(xlUp).Offset(1)
            Case "AUSTRALIA"
                Sheets("Sheet1").Cells(i, "D").EntireRow.Copy _
                    Destination:=Sheets("Sheet5").Range("A" & Sheets("Sheet5").Rows.Count).End(xlUp).Offset(1)
        End Select
    Next i
End Sub

额外优化：把多个ElseIf改成Select Case结构，代码可读性更好；同时给变量指定了明确的类型（Long），避免变体类型带来的潜在问题。

内容的提问来源于stack exchange，提问作者Kalma Kun