VBA如何实现自动横向复制前一单元格公式?

天天向下

比如 A列 某单元格 输入公式后  从B列到Z列 自动复制前一单元格公式,请大神指导一下

天天向下

竟没人看吗,座等 大神来

天天向下

看不到啊,座等

zhjlgaojuan

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Application.EnableEvents = False
For Each Rng In Target
  If Rng.HasFormula Then
    For i = 2 To 26
      Cells(Rng.Row, i).Formula = Cells(Rng.Row, i - 1).Formula
    Next
  End If
Next
Application.EnableEvents = True
End Sub
是不是这个意思?

天天向下

zhjlgaojuan 发表于 2016-9-8 17:17
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Application.EnableEvents = Fa ...

我想的要结果是  相对引用前一单元格公式,而不是直接复制前一单元格公式,如何更改?

zhjlgaojuan

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Rows.Count = 1 Then
  Application.EnableEvents = False
  If Target.HasFormula Then Range("a" & Target.Row & ":z" & Target.Row).Formula = Target.Formula
  Application.EnableEvents = True
End If
End Sub

天天向下

zhjlgaojuan 发表于 2016-9-9 09:23
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Rows.Count = 1  ...

太感谢你了,帮我解决问题

海依澄

为什么我把这个代码输入到宏中，提示要输入宏名称，输入了以后点创建提示  无效过程名

提示输入宏名称

提示无效过程名