|
写在前面:
最近老大丢给我一个数据量比较大，比较复杂的表，让我用VB去处理，刚被分到这个任务的时候一脸茫然，对Excel VB开发一点都不了解，所以就自己研究并查资料，最后终于解决了。
一、Excel VBA拆分合并单元格并自动填充
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Long, i As Long, c As Range
n = ActiveSheet.UsedRange.Count
For i = 1 To n
If ActiveSheet.UsedRange.Item(i).MergeCells = True Then
ActiveSheet.UsedRange.Item(i).Select
Selection.UnMerge
With Selection
.Value = .Cells(1, 1)
End With
Selection.Cells(1, 1).Copy
Selection.PasteSpecial Paste:=xlPasteFormats
End If
Next
End Sub
注意：SelectionChange是一个单元格事件，即
|