如何用VBA处理带角标号且前后有空字符串的数据

豁达爆米花

如下图所示，从后台下载的报表数据提示前后有空字符串
需求是：用VBA去除角标号，显示数值。
有没有老师帮忙解决下呀？

ykcbf1100

字串清空前后空格可以用trim函数，数字有空格的话，可以用val函数转换

豁达爆米花

ykcbf1100 发表于 2022-11-24 12:22
字串清空前后空格可以用trim函数，数字有空格的话，可以用val函数转换

用Trim的话，还是有角标号的。老师您再看看

ykcbf1100

你那角标是文本格式，改成常规格式就可以了。

gwjkkkkk

Sub 按钮1_Click()
Dim arr, i&, j&
arr = [A1].CurrentRegion
For i = 1 To UBound(arr)
  For j = 1 To UBound(arr, 2)
     If VBA.IsNumeric(arr(i, j)) Then
     arr(i, j) = Val(arr(i, j))
     End If
  Next j
Next
[A1].CurrentRegion = arr
End Sub

gwjkkkkk

请参考附件。。。

豁达爆米花

ykcbf1100 发表于 2022-11-24 15:32
你那角标是文本格式，改成常规格式就可以了。

用wps操作，B列的文字还是带有角标号的

豁达爆米花

gwjkkkkk 发表于 2022-11-24 20:02
请参考附件。。。

用wps操作，B列的文字还是带有角标号的。
用office就可以转换成功

gwjkkkkk

Sub 按钮1_Click()
Dim arr, i&, j&
arr = [A1].CurrentRegion
For i = 1 To UBound(arr)
  For j = 1 To UBound(arr, 2)
     If VBA.IsNumeric(arr(i, j)) Then
     arr(i, j) = Val(arr(i, j))
     End If
  Next j
Next
[A1].CurrentRegion.Cells.Clear
[A1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

gwjkkkkk

我没有wps,请参考附件试试。。。