[已解决]请把公式改为宏

海水鱼

请看附件，谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-1 19:26

Sub Click()
    Dim A, j
    A = [c6].Resize(2, 40)

    For j = 1 To UBound(A, 2)
        If j Mod 10 = 1 Then
            A(2, j) = A(1, j)
        Else
            A(2, j) = A(2, j - 1) + A(1, j)
        End If
    Next j

    [c6].Resize(UBound(A), UBound(A, 2)) = A
End Sub


请教：公式用宏表达2.rar (17.45 KB, 下载次数: 28)

2016-5-1 19:26 上传

点击文件名下载附件

跳转到最佳答案楼层

lichuanboy44

1. Sub Macro1()
   
2.     For i = 0 To 3
   
3.         Cells(7, i * 10 + 3).FormulaR1C1 = "=R[-1]C"
   
4.         Cells(7, i * 10 + 4).FormulaR1C1 = "=RC[-1]+R[-1]C"
   
5.         Cells(7, i * 10 + 4).AutoFill Destination:=Range _
   
6.         (Cells(7, i * 10 + 4), Cells(7, i * 10 + 12)), Type:=xlFillDefault
   
7.     Next
   
8. End Sub

复制代码

海水鱼

请去掉公式

爱疯

Sub Click()
    Dim A, j
    A = [c6].Resize(2, 40)

    For j = 1 To UBound(A, 2)
        If j Mod 10 = 1 Then
            A(2, j) = A(1, j)
        Else
            A(2, j) = A(2, j - 1) + A(1, j)
        End If
    Next j

    [c6].Resize(UBound(A), UBound(A, 2)) = A
End Sub


请教：公式用宏表达2.rar (17.45 KB, 下载次数: 28)

2016-5-1 19:26 上传

点击文件名下载附件

c5h8o4nna

关于这句  [c6].Resize(UBound(A), UBound(A, 2)) = A这种类型的
变量放在等号左边和放在右边有什么区别？我尝试把A放在左边是执行不了的