Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
shellCount = Excel.Worksheets.Count
mrow = 0
If Target.Column = 1 Then
Return
End If
For i = 1 To shellCount
If Target.Worksheet.Index <> i Then
''''查找该列
csheetcnt = Sheets(i).UsedRange.Rows.Count
For j = 9 To csheetcnt
If Sheets(i).Cells(j, 1).Value = Target.Worksheet.Cells(Target.row, 1).Value Then
''''更改该列
Sheets(i).Cells(j, Target.Column).Value = Target.Value
End If
Next
End If
Next
End Sub
使用VBA来做,假 设现在形成关系的是A1与B1单元格.
参考如下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Address = "$A$1") Or (Target.Address = "$B$1") Then
Application.EnableEvents = False
If Target.Address = "$A$1" Then
Range("b1").Value = Target.Value
Else
Range("a1").Value = Target.Value
End If
Application.EnableEvents = True