您的位置：首页 > 编程语言 > VB

VBA 统计合并后的单元格内容方法

2013-10-06 22:50 239 查看

Sub 统计()

Dim R_Output As Range, R_Name As Range, S1 As String, S2 As String, isLast As Boolean, isSameId As Boolean, nCount As Integer

Set R_Output = Range("AF2")

S1 = "": S2 = ""

Set R_Name = Range("A2")

isLast = False

Do

isLast = (R_Name.Value = "") And (R_Name.Offset(0, 1).Value = "") And (R_Name.Offset(0, 2).Value = "")

If R_Name.Value <> "" Or isLast Then 'if1 如果不是最后一行，或者不为空，则在输出位置先写入相应的值

R_Output.Value = R_Name.Value

R_Output.Offset(0, 1).Value = R_Name.Offset(0, 1).Value

R_Output.Offset(0, 2).Value = "北京"

nCount = 0

'MsgBox R_Name.MergeArea.Rows.Count

'筛选北京的

For i = 1 To R_Name.MergeArea.Rows.Count Step 1

S1 = R_Name.MergeArea.Rows.Cells(i, 22)

If S1 = "北京" Then

nCount = nCount + R_Name.MergeArea.Rows.Cells(i, 19)

End If

Next i

R_Output.Offset(0, 3).Value = nCount

Set R_Output = R_Output.Offset(1, 0)

R_Output.Value = R_Name.Value

R_Output.Offset(0, 1).Value = R_Name.Offset(0, 1).Value

R_Output.Offset(0, 2).Value = "不限"

nCount = 0

'MsgBox R_Name.MergeArea.Rows.Count

'筛选不限京的

For i = 1 To R_Name.MergeArea.Rows.Count Step 1

S1 = R_Name.MergeArea.Rows.Cells(i, 22)

If S1 = "不限" Then

nCount = nCount + R_Name.MergeArea.Rows.Cells(i, 19)

End If

Next i

R_Output.Offset(0, 3).Value = nCount
End If 'end if1

Set R_Output = R_Output.Offset(1, 0)

Set R_Name = R_Name.Offset(1, 0)

Loop While Not isLast

End Sub

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航