excel vba-将工作表名称插入一系列单元格

Question

trying to fill a range of blank cells with the name of the sheet that they are in. not sure why Range("ActiveSheet.Name") does not work? any help appreciated!

Dim rng As Range
Set rng = Range("B1:B100")
For Each cell In rng
    If cell.Value <> "" Then
        cell.Offset(0, -1).Value = Range("ActiveSheet.Name")
    End If
Next

Answer 1

Try like this:

If cell.value <> "" Then
    cell.Offset(0, -1) = ActiveSheet.name
End If

If you decide to get away from the ActiveSheet, this way is a bit fancier:

   cell.Offset(0, -1) = rng.Parent.name

or

   cell.Offset(0, -1) = cell.Parent.name

Answer 2

您不需要使用Range...。只需使用以下命令：

cell.Offset(0, -1).Value = ActiveSheet.Name

Answer 3

尝试工作Sheets(i).Name ，其中i等于工作表的编号，而不是Range("ActiveSheet.Name)