excel 自动 生成 字符

关于我在A1单元格输入字符L，然后想在A2,A5,A12,A27.A57单元格分别都自动填充L字符。

就是说在原来单元格基础上，依次加上1，3，7，15，30得到下一个单元格。

要实现这个功能，应该怎么写代码
的问题

Private Sub Worksheet_Change(ByVal Target As Range)
If Target。Column > 1 Or Target。Row > 10000 Or Target。Count > 1 Then Exit Sub
Application。
EnableEvents = False
b = 1
a = Target。Row
For i = 1 To 10
b = b + a
Cells(b, 1) = Target。Value
a = 2 ^ (i + 1) – 1
Next
Application。
EnableEvents = True
End Sub
A1:A10000有这个功能,为什么要控制到A10000呢?因为再往后,有可能超出A65536,没写容错功能。
只写了填充10个单元格,要多少个自己修改。