Question

谁懂编程，这个程序怎么设置EXCEL列宽

Sub shet(col As Integer, row As Integer) '打表格从哪行哪列开始
Sheets(2).Range(Cells(col, row), Cells(col, row + 3)).MergeCells = True '合并单元格
Sheets(2).Rows(col).RowHeight = 36 '设置行高
Sheets(2).Cells(col, row).Value = "固定资产登记卡"

Sheets(2).Rows(col + 1).RowHeight = 24.9 '设置行高
Sheets(2).Cells(col + 1, row).Value = "资产编码"

Sheets(2).Rows(col + 2).RowHeight = 24.9 '设置行高
Sheets(2).Cells(col + 2, row).Value = "使用部门"

Sheets(2).Rows(col + 3).RowHeight = 24.9 '设置行高
Sheets(2).Cells(col + 3, row).Value = "使用人"

With Sheets(2).Range(Cells(col, row), Cells(col + 3, row + 3))
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With
End Sub

Answer 1

    Columns("A:A").ColumnWidth = 30    ''设置列宽
    Rows("1:1").RowHeight = 30        ''设置行高

追问

怎么会运行错误.Columns(row+2,col).ColumnWidth = 11.11 '设置列宽

追答

Columns("A:A")
columns(1)
这两种都见过，
Columns(row+2,col)

这种我没见过，不知道对不对