如何在vba的Range方法中合并列名？

2024-05-02 • 问答

startColumn=startRange.Column
endColumn  =endRange.Column 
Range(startColumn & "5" : endColumn & "5")

我要在vba中同时连接列名和行号*

.Column属性返回指定范围内第一区域中第一列的编号，从而返回一个数值。因此，更好的做法是：

Range(Cells(5,startColumn),Cells(5,endColumn ))

现在要稍微改进一下代码，明智的做法是使用显式工作表引用。

Dim rng as range
With Sheet1 'Change according to your sheet's CodeName
    Set rng = .Range(.Cells(5,.Cells(5,endColumn))
End with