如何在插入的列中插入工作表名称

Question

我正在尝试插入一个Column并将其命名为“Ref”，并最终插入工作表名称的值。这就是我所做的：

Sub InsertColumn()
    Dim ws As Worksheet
    With ws
        Columns(1).Insert
        Range("1").Value = ActiveSheet.Name
    End With
End Sub

正如您所看到的，我仍然在命名列时遇到问题，并且只知道如何在工作表上有数据行之前插入值。

Answer 1

如果要插入工作表名称，只要B列中有内容（插入后），您就可以这样做：

Columns(1).Insert
Dim loRow as Long
    loRow = Cells(Rows.Count, "B").End(XlUp).Row
Range("A1", Cells(loRow, "A")).Value = ActiveSHeet.Name

您可以在需要时将"B" column reference更改为不同的列。

评论后编辑

你的问题有点不清楚。这可能就是你所需要的：

Columns(1).Insert
Dim loRow as Long
    loRow = Cells(Rows.Count, "B").End(XlUp).Row
RRange("A1", Cells(loRow, "A")).Name = ActiveSheet.Name