[已解决]求助一个代码

wssbtyy · 发表于 2015-9-23 09:43

请老师给改正一下代码

最佳答案

月排行榜 / 总排行榜

qh8600

2015-9-23 10:11

wssbtyy 发表于 2015-9-23 10:08
老师我很菜帮忙改一下好吗谢谢

新建 Microsoft Excel 工作表.rar (8.69 KB, 下载次数: 4)

qh8600 · 发表于 2015-9-23 09:53

Split的函数第二个参数错了，改一下就可以了

wssbtyy · 发表于 2015-9-23 09:57

qh8600 发表于 2015-9-23 09:53
Split的函数第二个参数错了，改一下就可以了

老师咋改请指教

Hsiao · 发表于 2015-9-23 09:58

猜是这个意思

For hxh = 3 To Range("b1").CurrentRegion.Rows.Count
ReDim arr3(1 To 1)
arr1 = Split(Cells(hxh - 1, 2).Value, " ")
arr2 = Split(Cells(hxh, 2).Value, " ")
For lxh1 = LBound(arr1) To UBound(arr1)
      For lxh2 = LBound(arr2) To UBound(arr2)
         If arr1(lxh1) = arr2(lxh2) Then
            n = n + 1
            ReDim Preserve arr3(1 To n)
            arr3(n) = arr1(lxh1)
            Exit For
         End If
      Next lxh2
Next lxh1
If n >= 3 Then Cells(hxh, 3).Resize(1, n) = arr3
n = 0
Next hxh
End Sub

wssbtyy · 发表于 2015-9-23 10:07

Hsiao 发表于 2015-9-23 09:58
猜是这个意思

For hxh = 3 To Range("b1").CurrentRegion.Rows.Count

这代码的意思是B列里相邻的二个单元格里有从复的数提取出到C D E F G列
B列里是8位数是运行
我把B列改为5位数是不运行了

wssbtyy · 发表于 2015-9-23 10:08

qh8600 发表于 2015-9-23 09:53
Split的函数第二个参数错了，改一下就可以了

老师我很菜帮忙改一下好吗谢谢

qh8600 · 发表于 2015-9-23 10:11

这个最佳答案由 qh8600 给出，感谢 qh8600 的回答。

单击隐藏图章

wssbtyy 发表于 2015-9-23 10:08
老师我很菜帮忙改一下好吗谢谢

新建 Microsoft Excel 工作表.rar (8.69 KB, 下载次数: 4)

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

[已解决]求助一个代码

评分

评分