|
本帖最后由 xdragon 于 2013-10-30 00:54 编辑
chengzhiting 发表于 2013-10-29 23:41
有什么方法可以改吗?
取消合并单元格,然后填充满内容就行了。。。提供给你个取消合并单元格并填充的代码吧。- Sub 取消合并且填充数据()
- If ActiveSheet.ProtectContents Then MsgBox "工作表已保护,本程序拒绝执行!", 64: Exit Sub
- If TypeName(Selection) <> "Range" Then MsgBox "请选择单元格!", 65: Exit Sub
- Application.ScreenUpdating = False
- Application.Calculation = xlManual
- Dim rng As Range, val, cell As String
- For Each rng In Application.Intersect(Selection, ActiveSheet.UsedRange)
- If rng.MergeCells Then
- cell = rng.MergeArea.Address
- val = rng.Value
- rng.UnMerge
- Range(cell).Value = val
- End If
- Next
- Application.Calculation = xlAutomatic
- Application.ScreenUpdating = True
- End Sub
复制代码 |
|