用VBA实现把excel某区域拆分，再每行合并，并且把第一行的值写入每一行，循环实现。

Question

最好是先拆分，把第一个空格的内容取出，然后分别写入每一行，循环该过程。

Answer 1

Option Explicit

Sub Macro1()
Dim arr, i%, N%, M%
' Macro1 Macro
' 宏由 yzvvj 录制，时间: 2012/1/13
'
'拆分单元格
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'获取行数N,列数M
arr = Selection
N = UBound(arr)
M = Selection.Count / N
'第一行合并
ActiveCell.Range("A1", Chr(64 + M) & "1").Select
Selection.Merge
Selection = arr(1, 1)
For i = 2 To N '后面行合并
ActiveCell.Offset(1, 0).Range("A1", Chr(64 + M) & "1").Select
Selection.Merge
Selection = arr(1, 1)
Next i
End Sub

Answer 2

没有明白你的意思，能不能举例说一下