文章插图
Sub hebing()
a = “”
For i = 1 To Range(“A65536”).End(xlUp).Row + 1
If Cells(i, 1) = “” Then
Range(“C” & i + 1 & “:C” & Range(“A” & i + 1).End(xlDown).Row).Merge
Cells(Range(“A” & i – 1).End(xlUp).Row, 3) = a
a = “”
Else
If a = “” Then
a = Cells(i, 1)
Else
a = a & Cells(i, 1)
End If
End If
Next
End Sub

• 三万字实操手册：房地产投资基金运作最全解析
• 偷渡什么意思 偷渡什么意思全解
• 新手化学快速入门教程图解 滑雪技巧初学者单板简单步骤
• 小嘴女人面相性格好吗，女人嘴小面相全解！
• 滑板新手十个简单动作 滑板初学者开始怎么练
• 新手吉他入门零基础教学 初学者0基础学吉他先学什么
• 围棋的玩法说明和规则[初学者零基础学围棋入门知识]
• vba中主要提供了3种数据库访问接口 vba 连接数据库
• 星座运势全解析 5月7日是什么星座
• 下 初学者如何提高象棋水平(怎么能快速学会下象棋)