Question

我的Excel工作簿中大约有250张纸。我想在每个工作表中更改单元格B2的值以匹配其各自工作表的名称。

如何使用基于VBA的代码执行此操作？

Answer 1

尝试：

var array = [1, 2, 3, 4, 5, 6, 7],
    first = array.slice(0, Math.floor(array.length / 2)),
    second = array.slice(Math.floor(array.length / 2));

console.log(first);
console.log(second);

Answer 2

好吧，您可以将其自动化，而不是接受的答案。

让我们考虑一下：如果您更改工作表的任何名称，都会遇到同样的问题。

因此，如果您要在单元格B2中输入公式以检索工作表名称，则更改工作表的名称也会自动更新单元格内容，这与给定的答案相反，您需要再次运行代码

因此，请考虑使用此类代码（一生一次：））：

Sub Get_Sheets_Name()
    Dim ws As Worksheet
    'Loop all sheets in this workbook
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells(2, 2).Formula = "=MID(CELL(""filename"",A1),FIND(""]"",CELL(""filename"",A1))+1,256)"
    Next
End Sub

Excel宏，用于更改单元格值以匹配工作表的名称

2 个答案: