查看: 1246|回复: 7
求助：跪求各位老师帮忙看看这样的操作过程能不能用宏实现？
各位老师帮忙看看：
附件中的表一是要操作的表，表二是我整理后的表，整理的过程附注在表二，
这样的操作过程能不能用宏实现呢？如果能的话，请各位老师帮帮帮小弟~
19:44 上传
点击文件名下载附件
4.7 KB, 下载次数: 26
示例，麻烦啦
能用宏实现
这位大哥，如果不是很麻烦的话，能不能抽出来点时间帮忙做一下，我对于vb基本上不懂啊，万分感激！！！！
自己顶一下，我试了试“录制宏” 不过发现还是有很多不足之处，不能应用。请各位老师帮个忙吧
不好意思，我不会。我只是说有高手会，你再耐心等一下吧，不好意思了
还是非常感激！
汗颜，早知道早学会，也不枉你说这声'谢谢&,可惜我也刚来不久，很多都还不会。
Sub yy()
Dim i&, Myr&, r%, Arr, Arr1()
Application.ScreenUpdating = False
Sheet1.Activate
Myr = [a65536].End(xlUp).Row
Columns(&B:B&).Insert Shift:=xlToRight
[b1] = &mo&
Arr = Range(&a1:c& & Myr)
For i = 2 To UBound(Arr)
& & Arr(i, 2) = Left(Arr(i, 1), 9)
Next
[b1].Resize(Myr, 1) = Application.Index(Arr, 0, 2)
Range(&A1:C& & Myr).Sort Key1:=Range(&B2&), Order1:=xlAscending, Header:= _
& && &&&xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
& && &&&SortMethod:=xlPinYin, DataOption1:=xlSortTextAsNumbers
Arr = Range(&a1:c& & Myr)
For i = 2 To UBound(Arr)
& & If Arr(i, 2) && Arr(i - 1, 2) Then
& && &&&r = r + 1
& && &&&ReDim Preserve Arr1(1 To r)
& && &&&Arr1(r) = i
& & End If
Next
Range(&A1:C& & Myr).Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(3), _
& && &&&Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Application.ScreenUpdating = True
End Sub
复制代码
|||Excel精英培训
Powered by