VBA：更改列标题命名

Question

我有问题将列标题修改为我想要的命名。这是我的表：

st_name  st_id  st_num
Alex      112   1113
Alice     110   1132

预期产出：

Name      ID    Number
Alex      112   1113
Alice     110   1132

如何重命名标题，如预期输出表中所示。

Answer 1

有几种方法可以达到你需要的目的

请注意该示例基于使用范围"A1:C1"

1变体

Cells(1, 1).Value = "Name"
Cells(1, 2).Value = "ID"
Cells(1, 3).Value = "Number"

2变种

Cells(1, "A").Value = "Name"
Cells(1, "B").Value = "ID"
Cells(1, "C").Value = "Number"

3 Variant

Range("A1").Value = "Name"
Range("B1").Value = "ID"
Range("C1").Value = "Number"

4变体

[A1].Value = "Name"
[B1].Value = "ID"
[C1].Value = "Number"

5 Variant，作为范围一个接一个的替代方案

[A1:C1].Value = Split("Name ID Number")

或

Range("A1:C1").Value = Split("Name;ID;Number",";")

或

Range(Cells(1, 1), Cells(1, 3)).Value = Split("Name ID Number")

或

Range(Cells(1, "A"), Cells(1, "C")).Value = Split("Name ID Number")

或

[A1:C1].Value = Split("Name ID Number")

......依此类推......取决于需要实现的任务

Answer 2

在宏中，使用以下内容：

Worksheets("YourSheetName").Range("A1").value = "Name"
Worksheets("YourSheetName").Range("A2").value = "ID"
Worksheets("YourSheetName").Range("A3").value = "Number"

将参数更改为Worksheets以匹配正在进行更改的工作表的名称。如果那些不是前三列，则需要在Range方法的参数中更改单元格引用。