如何在插入的列中插入圖紙名稱

Question

我試圖插入一個列並將其名稱作爲「參考」並最終插入該圖紙名稱的值。這是我做了什麼：

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