请问excel vba中，如何设置单元格列宽？

对于这个问题，你可以有一下解决办法：

①利用单元格range的属性entireColumn

如：更改sheet2上A列单元格的列宽为50

Sheet2.Range("a1").EntireColumn.ColumnWidth = 50

→ →上面这句话也可以用下面这句话代替

Sheet2.Range("A1").ColumnWidth = 50

→ →当然也可以用下面这句话代替

sheet2.Columns("A:A").ColumnWidth =50

②可以更改工作表中所有单元格的列宽，利用cells的属性cloumnWidth

Sheet2.Cells.ColumnWidth = 50

注：用以上方式也可以设置行高，rowHeight属性，方法相同；

希望能帮到你，谢谢！

Sub 调整数字为红色()

Dim She As Worksheet

Dim Ran As Range

Dim i As Integer

Set She = Application.ActiveSheet

For Each Ran In She.UsedRange

If Not IsNumeric(Ran) Then

For i = 1 To Len(Ran)

If IsNumeric(Mid(Ran, i, 1)) Then

With Ran.Characters(Start:=i, Length:=1).Font

.Size = 12

.Color = -16776961

End With

End If

Next

End If

Next

End Sub

---