如何每次在excel表一中单元格A1中输入的内容在在表2中的A1到N1中出现，表1位置不变的，急求教

你是两个工作薄（即两个Excel文件）还是同一个工作薄里的2个工作表（即同一个Excel里的Sheet1和Sheet2）

还有你表2中A1到N1的是和表1中A1的内容一样么？即当表1中A1为“A”的时候表2中A1到N1中的内容也全部为“A”？？

如果是在同一个工作薄里那很容易，如果是两个工作薄那也能实现就是稍微复杂点

希望你能在把问题说的详细一点，好方便为你解决。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim aa As Range
Set aa = Sheet1.Range("a2")

With Target
If .Row <> aa.Row Then Exit Sub
If .Column <> aa.Column Then Exit Sub
End With

r = Sheet2.Range("a60000").End(xlUp).Row

If Sheet2.Cells(1, 1).Value = "" Then
Sheet2.Cells(1, 1).Value = 1
Sheet2.Cells(1, 2).Value = Sheet1.Cells(2, 1).Value
Else
Sheet2.Cells(r + 1, 1).Value = Sheet2.Cells(r, 1).Value + 1
Sheet2.Cells(r + 1, 2).Value = Sheet1.Cells(2, 1).Value
End If

End Sub

两个表是分开转存的，故你所说的问题不可能实现

希望我的回答能帮助到你~

好简单啊。在表1中输完内容后，请复制它。再选中表2中的A1到N1，一个粘贴。OK