EXCEL,写入VBA,给单元格写入公式!

复制T55-T59的公式,粘到T29-Y33, T 35-Y39 , T41-Y45 ,T47-51,加公式!加公式!加公式!如同给出的图!

Sub s()
    For k = 28 To 46 Step 6
        For i = 1 To 5
            For j = 1 To 6
                Cells(k + i, 19 + j) = "=" & Chr(83 + j) & 54 + i
            Next
        Next
    Next
End Sub追问

办公方面不错喔

温馨提示:答案为网友推荐,仅供参考
第1个回答  2017-05-19

……

Range("T55:T59").Copy
Range("T29:Y33").PasteSpecial xlPasteFormulas
Range("T35:Y39").PasteSpecial xlPasteFormulas
Range("T41:Y45").PasteSpecial xlPasteFormulas
Range("T47:Y51").PasteSpecial xlPasteFormulas
Application.CutCopyMode =xlCopy

……

追问

在不

?

有点问题

本回答被网友采纳
第2个回答  2017-05-19
VBA只要录制一下公式,公式就有了。
第3个回答  2017-05-19
http://www.excelpx.com/home/show.aspx?id=33055追问

=VLOOKUP($I$1,Sheet19!$A10:$G4008,COLUMN(B12),)共5个类似公式

第4个回答  2017-05-19
1Cells(2, 12) = "=if(H2=C2,"""",""数据不一致"")"追问

vba

才行

相似回答