Question

提示数据类型不符，应该怎样修改代码呢。

A列单元格内的数值为要拖动的次数，B列为数值，比如A1 是5，B1拖动5次；A2是6，B2往后拖动6个单元格，如此类推....A列和B列是一一对应的（未知行数，到最后一个非空值为止）

Option Explicit
Sub xxx()
Dim i, j, n
i = 1
While Cells(i, 1) <> ""
n = Cells(i, 2)
For j = 1 To Cells(i, 1)
Cells(i, j+1) = n
n = n + 1
Next j
i = i + 1
Wend
End Sub
以上代码能够完成上面的要求，但如果B列不是纯数字，是其他文字，例如7075-1 6061T-1 输出的结果为，
7075-2 7075-3
6061T-2 6061T-3 6061T-4
运行上面的代码会提示数据类型不符，应该怎样修改代码呢。





Answer 1

Option Explicit
Sub xxx()
    Dim i, j, n
    i = 1
    While Cells(i, 1) <> ""
        n = Cells(i, 1)
        Cells(i, 2).Select
        Selection.AutoFill Destination:=Range(Cells(i, 2), Cells(i, 1 + n)), Type:=xlFillDefault
        i = i + 1
    Wend
End Sub