www.5129.net > ExCEl用VBA自动将由公式生成的结果转换为值

ExCEl用VBA自动将由公式生成的结果转换为值

sub copyformula() range("j8").formula = "=sumproduct((month($e$2:$e$65536)=month(j$7))*($h$2:$h$65536=$i8)*($a$2:$a$65536))" range("j8").copy range("j8:l20")end sub

Sub 转换() For i = 3 To [e65536].End(3).Row If cells(i,"e")="待上架" Then cells(i,"i").value = cells(i,"i").value cells(i,"j").value = cells(i,"j").value End If Next End Sub

Private Sub CommandButton3_Click() Dim Myr&, Arr, i& Myr = Cells(Rows.Count, 1).End(xlUp).Row Arr = Range("a3:l" & Myr) For i = 1 To UBound(Arr) If Arr(i, 1) <> "" Then Cells(i + 2, 2).Resize(1, 11) = Cells(i + 2, 2).Resize(1, 11).Value Next End Sub

看不懂你是什么意思,这段代码功能就是把c列的值复制到d列呀

将以下代码,粘贴到该表的代码窗格中(注意!!!)Private Sub Worksheet_Change(ByVal Target As Range)application.EnableEvents=Falseif target.column=7 then if target.row >5 then if target.count=1 then if target.value"" then cells(target.row,1)=cells(target.row,1).value end if end if end ifend ifapplication.EnableEvents=trueEnd Sub

公式可自动生成数值,无需vba命令. 引用公式:cells(m,n).formula 引用数值:cells(m,n).value 前面加入a: "a"&cells(m,n).value

复制粘贴-选择性粘贴-只保留数值

Sub 添加公式() i = [b65536].End(3).Row Cells(i + 1, 2) = "=MOD(" & 10 & "+B" & i & "+C" & i - 1 & "-D" & i - 1 & "," & 10 & ")" End Sub(C47-D47)这个不需要括号,因为是同级计算.运行后如图

没法自动,只能手动.先把公式生成值的所在单元格复制,然后在原位置上(其他位置也可以)点击右键选择“选择性粘贴”选择“数值”确定即可.另一种方法是将公式隐藏.

很简单,复制C单元格,右击你希望显示结果的单元格,选择“选择性粘贴”、“数值”就OK了

网站地图

All rights reserved Powered by www.5129.net

copyright ©right 2010-2021。
www.5129.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com