如何讲文本中批量将kg转化成1000g

易经爱好者 · 发表于 2021-5-10 16:47

易经爱好者 · 发表于 2021-5-10 16:50

走过路过的大神请帮忙解答，谢谢

娱乐部长 · 发表于 2021-5-10 17:16

用函数公式就可以。

易经爱好者 · 发表于 2021-5-10 17:20

啥公式啊？

A1233515 · 发表于 2021-5-10 17:28

循环判断+拆分合并
感觉写的有点啰嗦

A1233515 · 发表于 2021-5-10 17:29

附件供参考

向東 · 发表于 2021-5-10 17:32

最好用正则来处理

a18b88 · 发表于 2021-5-10 18:10

用公式：

test.rar (88.17 KB, 下载次数: 6)

townyee · 发表于 2021-5-10 18:22

也来加个作业，也是循环
如果用数组可能快些（但是不折腾了

）
大概思路吧
Sub test()
Dim i As Integer
Range("B1") = "结果"
For i = 1 To Range("A65536").End(xlUp).Row

      If Not Range("a" & i).Find("kg", lookat:=xlPart) Is Nothing Then

         Range("B" & i).Select
         ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],SEARCH(""kg"",RC[-1])-1) * 1000 &""g"""

      End If
Next
End Sub

test.rar (28.36 KB, 下载次数: 2)

townyee · 发表于 2021-5-10 18:48

我那个更新了下，
新增一列，标识出更改了地方：
Sub test()
Dim i As Integer
Range("B1") = "结果"
Application.ScreenUpdating = False
For i = 2 To Range("A65536").End(xlUp).Row
      Range("B" & i).Select
      If Not Range("a" & i).Find("kg", lookat:=xlPart) Is Nothing Then
         ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],SEARCH(""kg"",RC[-1])-1) * 1000 &""g"""

         '标识更改的地方，黄底红字
         With Selection.Interior
            .Color = 65535
         End With
         With Selection.Font
            .Color = -16776961
         End With

      ElseIf Range("a" & i).Find("kg", lookat:=xlPart) Is Nothing Then
         ActiveCell.FormulaR1C1 = "=RC[-1]"
      End If
Next
Application.ScreenUpdating = True
End Sub

		自动登录	找回密码
密码			免费注册

如何讲文本中批量将kg转化成1000g

最新热点 /1