标签：vba 长虹 位置 汇总 arr 出水口 Range Sheets Add

数据情况

要求

分表汇总

代码

Public Sub fenlei()

Dim i, a, b, c, d, e As Integer
Dim arr
a = 2
b = 2
c = 2
d = 2
e = 2
row_num = Cells(Rows.Count, 3).End(xlUp).Row
arr = Range("b3:i3")

Worksheets.Add.Name = "长虹湖-进水口"
Worksheets.Add.Name = "长虹湖-出水口"
Worksheets.Add.Name = "长虹湖-东北侧"
Worksheets.Add.Name = "华工西湖"
Worksheets.Add.Name = "水校"

For i = 4 To row_num
If Range("C" & i).Value = "长虹湖-进水口" Then
    'Sheets("长虹湖-进水口").Range("a" & a) = Range("b" & i)
    Range("b" & i & ":i" & i).Copy Sheets("长虹湖-进水口").Range("a" & a)
    a = a + 1

ElseIf Range("C" & i).Value = "长虹湖-出水口" Then
    'Sheets("长虹湖-出水口").Range("a" & b) = Range("b" & i)
    Range("b" & i & ":i" & i).Copy Sheets("长虹湖-出水口").Range("a" & b)
    b = b + 1
    
ElseIf Range("C" & i).Value = "长虹湖-东北侧" Then
    'Sheets("长虹湖-东北侧").Range("a" & c) = Range("b" & i)
    Range("b" & i & ":i" & i).Copy Sheets("长虹湖-东北侧").Range("a" & c)
    c = c + 1
ElseIf Range("C" & i).Value = "华工西湖" Then
    'Sheets("长虹湖-出水口").Range("a" & d) = Range("b" & i)
    Range("b" & i & ":i" & i).Copy Sheets("华工西湖").Range("a" & d)
    d = d + 1
Else
    'Sheets("长虹湖-出水口").Range("a" & f) = Range("b" & i)
    Range("b" & i & ":i" & i).Copy Sheets("水校").Range("a" & e)
    e = e + 1

End If

Next

Sheets("长虹湖-进水口").Range("a1").Resize(1, 8) = arr
Sheets("长虹湖-出水口").Range("a1").Resize(1, 8) = arr
Sheets("长虹湖-东北侧").Range("a1").Resize(1, 8) = arr
Sheets("华工西湖").Range("a1").Resize(1, 8) = arr
Sheets("水校").Range("a1").Resize(1, 8) = arr

MsgBox "分类完毕"

End Sub

标签：vba,长虹,位置,汇总,arr,出水口,Range,Sheets,Add
来源： https://blog.csdn.net/weixin_40112836/article/details/118279525

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。