VBA- 获取F列列宽，并设置E列列宽为E列和F列的列宽之和

Sub getWidth()
        Dim cellwidth As Long
        '获取F列列宽
        cellwidth = Range("F:F").ColumnWidth
        '把原来的F列列宽加到E列，也就是设置E列列宽为E列和F列的列宽之和
        Range("E:E").ColumnWidth = Range("E:E").ColumnWidth + cellwidth
        

		'下边这些是拓展，跟标题没有关系，只是想记录下来，以免忘记了
        Columns("F:F").Delete	'删除F列
        Columns("C:C").AutoFit	'设置C列列宽为自适应
        Range("D:D").RowHeight = 33	'设置D列行高为33，但是这样设置后，整个工作表的行高都会变成33
        Range("5:D").RowHeight = 33	'设置第5行行高为33
End Sub