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变种

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

4变种

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

5变体,作为范围一个接一个的替代方案

[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 方法参数中的单元格引用。