Excel VBA 在某列添加sheet的名称

命令从下面第一个Sub开始：

Sub 在J列添加卡的名字()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Sheets
lr = sht.Cells(Rows.Count, “e”).End(3).Row
With sht
.Range(“j1”).Value = “WF”
.Range(“j2:j” & lr) = “WF-” & Right(.Name, 4)
End With
Next sht
End Sub

Sub 在G列添加sheet的名字()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Sheets
lr = sht.Cells(Rows.Count, “e”).End(3).Row
With sht
.Range(“j1”).Value = “WF”
.Range(“G1:G” & lr) = .Name
End With
Next sht
End Sub