[已解决]根据表1的数据得到表2的结果

xhyq123

123.rar (8.79 KB, 下载次数: 10)

2017-5-14 18:31 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

327718098

2017-5-15 12:48

Sub text()

Dim rng As Range, rng1 As Range, wb As String
For Each rng In Sheet1.Range("a2:a10")
If Application.CountA(Sheet1.Range(rng.Offset(0, 1), rng.Offset(0, 31))) > 0 Then
For Each rng1 In Sheet1.Range(rng.Offset(0, 1), rng.Offset(0, 31))
If rng1 <> "" Then
wb = wb & Sheet1.Cells(1, rng1.Column).Value & ","
End If
Next
Sheet2.Cells(Sheet2.Cells(Rows.Count, 1).End(3).Row + 1, 1) = rng.Value
Sheet2.Cells(Sheet2.Cells(Rows.Count, 2).End(3).Row + 1, 2) = Application.Sum(Sheet1.Range(rng.Offset(0, 1), rng.Offset(0, 31)))
wb = Left(wb, Len(wb) - 1)
Sheet2.Cells(Sheet2.Cells(Rows.Count, 3).End(3).Row + 1, 3) = wb
wb = ""
End If
Next
End Sub

跳转到最佳答案楼层

327718098

Sub text()

Dim rng As Range, rng1 As Range, wb As String
For Each rng In Sheet1.Range("a2:a10")
If Application.CountA(Sheet1.Range(rng.Offset(0, 1), rng.Offset(0, 31))) > 0 Then
For Each rng1 In Sheet1.Range(rng.Offset(0, 1), rng.Offset(0, 31))
If rng1 <> "" Then
wb = wb & Sheet1.Cells(1, rng1.Column).Value & ","
End If
Next
Sheet2.Cells(Sheet2.Cells(Rows.Count, 1).End(3).Row + 1, 1) = rng.Value
Sheet2.Cells(Sheet2.Cells(Rows.Count, 2).End(3).Row + 1, 2) = Application.Sum(Sheet1.Range(rng.Offset(0, 1), rng.Offset(0, 31)))
wb = Left(wb, Len(wb) - 1)
Sheet2.Cells(Sheet2.Cells(Rows.Count, 3).End(3).Row + 1, 3) = wb
wb = ""
End If
Next
End Sub

xhyq123

高手，真正的高手。解决了大问题了。谢谢回答。多谢！！！！！！