excel vba - 将sheetname插入一系列单元格

Question

尝试使用它们所在的工作表的名称填充一系列空白单元格。不确定为什么Range（“ActiveSheet.Name”）不起作用？任何帮助表示赞赏！

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

试试这样：

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

如果你决定离开ActiveSheet，这种方式有点像：

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

或

   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)