[已解决]单元格值是 4->6，如何用VBA代码将所有sheet这类似的取后边数据

zte10157616 · 发表于 2014-4-1 21:42

本帖最后由 zte10157616 于 2014-4-1 22:16 编辑

4->6
1110:1100->1010:1110
等等类型

形如这些类型的单元格数据，共性就是->符号，我想遍历一遍sheet相应单元格数据只保留_>符号后边数据！

求思路求代码！谢谢

新建 Microsoft Office Excel 工作表.zip (9.98 KB, 下载次数: 4)

zte10157616 · 发表于 2014-4-1 21:43

求大侠支招……

pengyx · 发表于 2014-4-1 22:07

“保留&符号后边数据！”请问：&在哪里？，&后边数据又在哪里？，哪个“sheet相应单元格数据”有&?

dsmch · 发表于 2014-4-1 22:12

Sub Macro1()
Dim arr, i&, j%
arr = Range("a1").CurrentRegion
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
If arr(i, j) Like "*->*" Then Cells(i, j) = Split(arr(i, j), "->")(1)
Next
Next
End Sub

复制代码

dsmch · 发表于 2014-4-1 22:14

………………

zte10157616 · 发表于 2014-4-1 22:14

pengyx 发表于 2014-4-1 22:07
“保留&符号后边数据！”请问：&在哪里？，&后边数据又在哪里？，哪个“sheet相应单元格数据”有&?

打错了

Banieliang · 发表于 2014-4-1 22:15

高手

zte10157616 · 发表于 2014-4-1 22:18

dsmch 发表于 2014-4-1 22:12

救世主啊！
这段代码能否简单做下注解，这方面应用我还没理清楚。多谢

dsmch · 发表于 2014-4-1 22:28

Sub Macro1()
Dim arr, i&, j%
arr = Range("a1").CurrentRegion '赋值数组：和a1相连的单元格区域
For i = 1 To UBound(arr) '循环数组的行
For j = 1 To UBound(arr, 2) '循环数组的列
'附件中数组中第一行也就是工作表的第一行，列也如此
'如果数组的某行某列包含->, 则该单元格等于数组的后半部分
If arr(i, j) Like "*->*" Then Cells(i, j) = Split(arr(i, j), "->")(1) '用符号->分列，Split(arr(i, j), "->")(1)指后半部分
Next
Next
End Sub

zte10157616 · 发表于 2014-4-1 22:33

dsmch 发表于 2014-4-1 22:28
Sub Macro1()
Dim arr, i&, j%
arr = Range("a1").CurrentRegion '赋值数组：和a1相连的单元格区域

太感谢了！注解很清晰！

数组，这部分知识我还没开始学！！

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

[已解决]单元格值是 4->6，如何用VBA代码将所有sheet这类似的取后边数据

评分