☰

一次可分别更改多个单元格和列的文本输入和列宽

tag-icon • tag-icon microsoft-excel vba
一次可分别更改多个单元格和列的文本输入和列宽

我想知道如何缩短在单元格中插入多个文本并同时减少列宽的代码。那么，有办法吗？

Columns("A:A").ColumnWidth = 2
Columns("B:B").ColumnWidth = 10
Columns("C:C").ColumnWidth = 10
Columns("D:D").ColumnWidth = 15
Columns("E:E").ColumnWidth = 10
Columns("F:F").ColumnWidth = 10

为此：

Range("A2").Value = "first name"
Range("A3").Value = "surname"
Range("B2").Value = "Level"
Range("C2").Value = "Score"
Range("C3").Value = "in percentage"
Range("D2").Value = "Status"
Range("D3").Value = "pass/fail"
Range("E2").Value = "Rank"
Range("F2").Value = "Remarks"

有没有办法在一行中解决这个问题，而不是一次对每一行都进行处理。或者这是唯一的方法？

我期待类似的事情：

Range("E2,E3,F2,......").Value = "........."
Columns("A:A,B:B,C:C.....").ColumnWidth = 10

但我知道上面的方法行不通。如果有更短的方法，我愿意尝试。如果没有，这个也很简单。只是太长了。

*PS 我找到了这些参考资料，但它们并不是我真正期望的。

  1. 一次用“-”分隔多列单元格内容

  2. 在 Excel 中设置多列的宽度*

相关内容