[英]Loop Copy Cell that contains Formula Paste in Same Cell as Value
来到这里是因为我在 VBA 循环中有点挣扎。
请求一些代码帮助以处理以下情况:
我有多个列(每个列都有命名范围)在数据表中有公式。 我想减小文件大小,因为随着更多记录输入数据结构,保留所有公式会成倍增加文件大小。 我有大约 135 列已制定。
第 1 步 - 我需要复制多个列中的单元格,以将其复制并粘贴为同一单元格中的值。 除了始终包含公式的第一行数据。
第 2 步 - 宏重新插入公式以更新第一行的记录。
提前致谢!
幸运的是不需要循环。 这仅适用于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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.