Excel Vba拆分並填充單元格
阿新 • • 發佈:2018-12-22
Sub 拆分並填充單元格() ' ' 拆分並填充單元格 巨集 ' ' 可以將選中的所有單元格都拆開並填充 ' If Application.Selection.MergeCells = True Then Set selectedRange = Application.Selection selectedRange.UnMerge selectedRange.Value = selectedRange.Cells(1, 1).Value Else For Each selectedCell In Application.Selection If selectedCell.MergeCells = True Then Set selectedRange = selectedCell.MergeArea selectedRange.UnMerge selectedRange.Value = selectedRange.Cells(1, 1).Value End If Next End If End Sub
記錄一下,免得每次都找。