在合并单元格的 Excel 宏中需要帮助

【问题标题】：Need help in Excel macro for merged cells在合并单元格的 Excel 宏中需要帮助
【发布时间】：2020-11-24 08:04:03
【问题描述】：

我正在从 Excel 准备一个 CSV。 excel中合并的单元格很少。需要使 excel 准备好转换为 csv 文件。所以需要取消合并excel单元格并填充所有单元格重复的列标题。需要VBA中的MAcro来实现这一点

【问题讨论】：

标签： vba

【解决方案1】：

你可以使用.MergeCells = False看看下面这个例子：

Sub merge_Bouton1_Clic()
    With Range("A1:C1")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A1").Copy
    Range("B1:C1").PasteSpecial xlPasteValues
    Application.CutCopyMode = xlCopy
    
End Sub

[结果]：

【讨论】：