如何把多张表中某列数字为文本格式的单元格转换成数字格式的单元格？

鹦鹉好烦猫

请教大侠，现有一个工作簿，内有多张表格，想把所有表中“G”列的数字为文本格式的单元格全部转换成数字格式，以便进行统计，该怎样使用函数实现？（见附件）

ww87725244

1. Sub aa()
   
2. Dim sh As Worksheet
   
3. Dim rng As Range
   
4. Application.ScreenUpdating = False
   
5. For Each sh In Worksheets
   
6.         With sh
   
7.             For Each rng In sh.Range("g3:g" & .UsedRange.Rows.Count)
   
8.                 rng.Value = rng.Value
   
9.             Next
   
10.         End With
    
11. Next
    
12. Application.ScreenUpdating = True
    
13. End Sub

复制代码

鹦鹉好烦猫

ww87725244 发表于 2017-11-16 21:25

感谢大哥，其余四个表中的“工程量”都已转换为数值格式，同时我删除了“S1+S2总计”表，想把这四个表汇总到一个新表中，汇总时当“项目编码”相同时对各表的“工程量”相加，请问该如何改写代码？谢谢！ S1S2消防排烟工程统计20171116.rar (119.66 KB, 下载次数: 0)

2017-11-16 23:31 上传

点击文件名下载附件