如何在 VBA 中使用超出 ASCII 代码范围的字符或在 VBA 的范围中使用 *Chr* 的任何替代方法？

Question

我正在使用超出Z（列）的Excel列，即AA、AB、AC...。当我在代码下方运行时，它给了我错误，因为没有AA、AB、AC 的ASCII 代码...。如何在 ASCII.ALSO 中表示这些AA,AB,AC...列 是否有在Range中使用Chr 的替代方法，以便我可以避免使用 ASCII 代码？

counter = 0
For i = 1 To 14
Data.Range(Chr(80 + counter) & lastcolmain) = .Range("y" & 3 + i)
counter = counter + 6
Next

Answer 1

使用Cells和列号代替Range和列字母：

Data.Cells(lastcolmain, 16 + counter).Value = .Range("y" & 3 + i).Value