大佬们请教一个数据分类的问题。

回忆那时12

大佬们请教一个数据分类的问题。请看附件。 大佬请教一个问题.zip (179.35 KB, 下载次数: 5)

2018-7-19 10:32 上传

点击文件名下载附件

回忆那时12

自己顶一下啊

回忆那时12

哪位大佬帮我看看感谢

杨宝明

这个用if函数就可以吧。

CC例例

试试吧

1. Sub Test()
   
2.     Dim arA, arB, i&, x&, sName$, strText$
   
3.     arA = Range("a1").CurrentRegion
   
4.     ReDim arB(1 To UBound(arA), 1 To 3)
   
5.     Range("j2:l10000").ClearContents
   
6.     For i = 2 To UBound(arA)
   
7.         If arA(i, 6) >= 0 And arA(i, 7) >= 0 Then
   
8.             sName = "正"
   
9.         ElseIf arA(i, 6) < 0 And arA(i, 7) < 0 Then
   
10.             sName = "负"
    
11.         ElseIf arA(i, 6) >= 0 And arA(i, 7) < 0 Then
    
12.             sName = "右正左负"
    
13.         Else
    
14.             sName = "左正右负"
    
15.         End If
    
16.         If sName <> strText Then
    
17.             x = x + 1
    
18.             strText = sName
    
19.             arB(x, 1) = Mid(arA(i, 1), 2)
    
20.             arB(x, 2) = Mid(arA(i, 1), 2)
    
21.             arB(x, 3) = sName
    
22.         Else
    
23.             arB(x, 2) = Mid(arA(i, 1), 2)
    
24.         End If
    
25.     Next
    
26.     Range("j2").Resize(x, 3) = arB
    
27. End Sub

复制代码

CC例例

附件供参考