如何跨范围复制excel文件中的单元格格式？答案

【问题标题】：How can I copy the cell format in an excel file across a range?如何跨范围复制excel文件中的单元格格式？
【发布时间】：2020-04-09 14:21:19
【问题描述】：

我有这个 excel 表（上面链接的图片），我需要每月更新它，正如你所看到的，每个月都有一个带有新数字的新列。在花了一段时间试图掌握 vba 并四处询问之后，我感激地得到了这个代码：

Sub Increment_Month()


    Dim lngLastCol As Long, lngRow As Long

    lngRow = ActiveCell.Row
    lngLastCol = Cells(lngRow, Columns.Count).End(xlToLeft).Column

    If IsDate(Cells(lngRow, lngLastCol)) Then
        With Union(Cells(3, lngLastCol + 1), Cells(17, lngLastCol + 1), Cells(32, lngLastCol + 1))
            .Value = DateAdd("M", 1, CDate(Cells(lngRow, lngLastCol)))
            .NumberFormat = Cells(lngRow, lngLastCol).NumberFormat
        End With
    End If

End Sub

这增加了我的月份，所以我可以点击一个按钮，它有下个月作为标题。我现在被困在如何将前几个月的格式粘贴到接下来的几个月中，即有一个更新格式的宏，而不必复制每个月的格式（边框、颜色标题等），但是宏 i got 只是覆盖了过去几个月的数据，而没有一个月的时间。

对不起，如果这没有意义（请随时让我澄清它）。

感谢您的帮助！

【问题讨论】：

仅获取格式一并将其应用于纸张的整个宽度还不够吗？你只能在那里呆几个月。
是的，我想它会，但它只是让它尽可能整洁。感谢您的建议和编辑，我很感激！
您可以使用一个按钮从头开始插入它，而不是复制它。两者都会起作用。我以前从未使用过 VBA，所以也不知道该怎么做。只是不小心点到了问题。

标签： excel vba

【解决方案1】：

下面的代码会将最后一列复制到右边并清除内容。然后它将在前一个日期添加一个月，并复制您的总和公式（如果您有总和公式）。我只遍历了第 7 行以涵盖您的第一组数据，您可以根据需要进行更改。

Dim lCol As Long
lCol = Cells(3, Columns.Count).End(xlToLeft).Column

Columns(lCol).Copy
Columns(lCol + 1).Insert Shift:=xlToRight
Columns(lCol + 1).ClearContents

    For Each cell In Range(Cells(3, lCol), Cells(7, lCol))
        If IsDate(cell.Value) Then
            cell.Offset(, 1).Value = DateAdd("m", 1, cell.Value)
        End If

        If cell.HasFormula = True Then
            cell.Copy
            cell.Offset(, 1).PasteSpecial Paste:=xlPasteFormulas
        End If
    Next cell

Application.CutCopyMode = False

【讨论】：

【解决方案2】：

VBA 允许您使用以下语法更改单元格的背景颜色。下面的代码行将让您将单元格 A1 和 A10 的颜色设置为深蓝色。

Range("A1,A10").Cells.Interior.Color = RGB(0, 0, 125)

您可以使用类似的语法来获取范围并设置背景颜色。

【讨论】：