[原创]★将公式保存在宏中★

shunz

好办法,已经用上了.

lbl016

值得好好学习。

风和日月

老师下了你的资料学习学习遇到了难点请指点下我上传一个附件1表从2表中取数有一个A列非空单元格我要的是2表中的A列

风和日月

请老师指点为什么表1表2有5行的差别

LangQueS

没明白风和日月的意思

风和日月

从表2中取数表2 中有的都要用公式反应到表1中来

风和日月

一个是年份是一定 月份有12个天有365天如果每天产生多条数据在表2中记录,必同时在表1中体现

风和日月

老师我上传样表2那个在sheet2表用绿色字体部份怎么把它导入sheet1表中

LangQueS

原帖由 风和日月 于 2010-4-16 21:40 发表
老师我上传样表2那个在sheet2表用绿色字体部份怎么把它导入sheet1表中

Sheet2才是保存数据的形式……需要返回到Sheet1的格式，先做好函数公式，再使用宏来保存公式……

[ 本帖最后由 LangQueS 于 2010-4-17 09:35 编辑 ]

lbl016

Sub 引入公式()
y = Range("a65536").End(xlUp).Row       'A列最后可见单元的行号
    With Application
        .Calculation = xlManual
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
    Range("d3:d" & y).Select
    Selection.FormulaR1C1 = _
        "=IF(RC[2]<>"""",IF(MOD(RIGHT(LEFT(RC[2],17)),2),""男"",""女""),)"
    Range("E3:e" & y).Select
    Selection.FormulaR1C1 = _
        "=IF(RC6<>"""",DATEDIF(TEXT((LEN(RC6)=15)*19&MID(RC6,7,6+(LEN(RC6)=18)*2),""#-00-00""),TODAY(),""y""),)"
    Range("g3:g" & y).Select
    Selection.FormulaR1C1 = _
        "=IF(RC2<>"""",""**县""&VLOOKUP(--MID(RC2,1,6),代码!C[-5]:C[-4],2,),)"
           Range("a3:n" & y).Select     '选择所有公式区域
'复制并选择性粘贴数值
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("a" & y + 1).Select
    With Application
        .Calculation = xlAutomatic
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
这个代码还能精简和优化吗？

[ 本帖最后由 lbl016 于 2010-4-17 10:06 编辑 ]