Question

Dim i, LastRow


LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet2").Range("A2:I500").ClearContents
For i = 2 To LastRow
If Sheets("Sheet1").Cells(i, "D").Value = "Singapore" Then

Sheets("Sheet1").Cells(i, "D").EntireRow.Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If

Next i

任何人都可以告诉我如何编写代码，以便将这个名称新加坡和新加坡以低级或大写形式复制？它只会复制新加坡而不是小写新加坡

Answer 1

如果您想匹配Singapore和singapore（以及大写/小写字母的任何其他变体），则需要使用不区分大小写的比较。

最简单的方法是将两边转换为大写或小写，然后进行比较。

If UCase(Sheets("Sheet1").Cells(i, "D").Value) = "SINGAPORE" Then

Excel-VBA Coy既有小写又有大写字母

1 个答案: