Я хочу знать, сократить код для вставки нескольких текстов в ячейки и уменьшения ширины столбца одновременно. Итак, есть ли способ сделать это.
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 Я нашел эти ссылки, но они не совсем то, что я ожидал.