Excel有多个工作表区，我的有60个，里面的数据全部是文本格式，怎么一下全部刷成数值格式进行运算

发布网友发布时间：2023-03-13 14:35

共3个回答

热心网友时间：2023-10-21 05:32

Sub a()
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).[A1] = 1  '这里在一个新建表的A1单元格输入1
For i = 1 To Sheets.Count - 1
    Sheets(Sheets.Count).[A1].Copy
    Sheets(i).UsedRange.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
Next i
End Sub

右键 SHEET1，查看代码，粘贴代码。运行代码（F5键）。

运行完后，删除最后一个SHEET

热心网友时间：2023-10-21 05:32

找个空单元格，输入1，再选择要改的数据区，选择性粘贴，乘

热心网友时间：2023-10-21 05:33

单元格格式里改为数字追问六十个工作区，每个进行就麻烦了，不过有个总的，能关联后面的工作表

追答

选中全部文本格式数字，出现一个叹号，点一下，转换为数字，既可以了，希望能帮到你！