循環復制單元格，其中包含公式粘貼在與值相同的單元格中

Question

來到這里是因為我在 VBA 循環中有點掙扎。

請求一些代碼幫助以處理以下情況：

我有多個列（每個列都有命名范圍）在數據表中有公式。 我想減小文件大小，因為隨着更多記錄輸入數據結構，保留所有公式會成倍增加文件大小。 我有大約 135 列已制定。

第 1 步 - 我需要復制多個列中的單元格，以將其復制並粘貼為同一單元格中的值。 除了始終包含公式的第一行數據。

第 2 步 - 宏重新插入公式以更新第一行的記錄。

提前致謝！

Answer 1

幸運的是不需要循環。 這僅適用於B列。 此例程將除B1之外的所有單元格從公式轉換為值：

Sub column2values()
    Dim B1 As Range, B2N As Range, N As Long

    Set B1 = Range("B1")
    N = Cells(Rows.Count, "B").End(xlUp).Row
    Set B2N = Range("B2:B" & N)

    With B2N
        .Value = .Value
    End With
End Sub

這個 sub 采用仍然保留在B1中的公式並將其向下復制：

Sub restoreFormulas()
    Dim B1 As Range, B2N As Range, N As Long

    Set B1 = Range("B1")
    N = Cells(Rows.Count, "B").End(xlUp).Row
    Set B2N = Range("B2:B" & N)

    B1.Copy B2N
End Sub