excel vba怎么一键填充想要的数据啊？

如果只是照K1、K2内容复制过去，挺简单的：

Sub FillData()

  '将K1、K2数据填入C、D列，填入的行从第4行开始，填充行数根据P4中输入数据判断

  Dim N As Integer

  N = CInt(Range("P4").Value)

  Range("C4:C" &N + 3).Value = [k1]

  Range("D4:D" &N + 3).Value = [k2]

End Sub

注意没有考虑C、D列已经存在内容的情况

示例：

通过VBA实现自动填充，公式随单元格而变化：

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Target.Column = 4 And Target <>"" Then Range("c4").Copy Target.Offset(0, -1)

End Sub

如果不能满意，请按照自己的意愿拓展！

---