关于EXCEL的VBA关于：Columns("")问题

如何使用变量 i 列到 j 列替换下面的语句中的“C:IV”啊？（不想使用循环）Columns("C:IV").ColumnWidth谢谢回答。

2026年09月24日 05:40

有3个网友回答

网友（1）：

使用函数
COLUMNS(colr(i) & ":" & colr(j))

Function CoLr(ColNumber As Integer) As String
'返回列数字的英文字母
On Error GoTo Errorhandler
CoLr = Split(Cells(1, ColNumber).Address, "$")(1)
Exit Function
Errorhandler:
MsgBox "Error encountered, please re-enter "
End Function

网友（2）：

Range(Cells(1, i), Cells(1, j)).ColumnWidth

网友（3）：

Sub a()
Dim i As Integer
Dim j As Integer
i = 1
j = 5
ActiveSheet.Columns(i).Resize(, j).columnwidth =6
End Sub