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

Question

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

Answer 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

[结果]：