XlAutoFillType 枚举 的2个问题

爱疯

Sub test()
    Dim i, j, k
    Cells.Clear
    k = 3

    For j = 0 To 10

        For i = 1 To k
            With Cells(i, j + 1)
                .Value = i
                .Interior.ColorIndex = i + 33
            End With
        Next i

        Range("a1").Resize(k).Offset(0, j).AutoFill Destination:=Range("a1").Resize(30).Offset(0, j), Type:=j
    Next j

End Sub




请问：
1）type等于0,2,9都是带格式填充序列，1,5~8时都是带格式复制
     帮助的话读起来很别扭难懂，不理解帮助说的对不对

2）当 type = 10 时，如果k = 2，整个结果是乘法关系，如果k=3，则是什么关系？

谢谢

jiminyanyan

3 不是有解释么。。。。

爱疯

jiminyanyan 发表于 2019-4-26 20:41
3 不是有解释么。。。。

谢谢 jiminyanyan ！



1）如果对照1楼结果，我对type的理解是这样的

type 值    格式

0    扩展，复制
1    复制，复制
2    扩展，复制
3        ，复制
4    扩展，
5    复制，复制
6    复制，复制
7    复制，复制
8    复制，复制
9    扩展，复制
10   乘法，复制


2）如果看帮助，我就不理解比如 type 为 5 是什么意思？
    可否举个例子，用来说明帮助是对的

jiminyanyan

爱疯 发表于 2019-4-27 08:34
谢谢 jiminyanyan ！

5 是填充星期一、星期二 这样的的序列的。。。。

爱疯

jiminyanyan 发表于 2019-4-27 09:28
5 是填充星期一、星期二 这样的的序列的。。。。

Sub test()
    [a1] = Date
    [a2] = "=a1+1"
    [a1:a2].AutoFill Destination:=[a1:a30], Type:=5
End Sub


请问怎样可看到你说的5，填充星期一、星期二这样的序列的效果？

jiminyanyan

爱疯 发表于 2019-4-27 10:23
Sub test()
    [a1] = Date
    [a2] = "=a1+1"

Sub test()
    [a1] = "星期一"
    [a1].AutoFill Destination:=[a1:a30], Type:=5
End Sub