開excel ,alt+f11 ,在 sheet1(sheet1) 雙擊,選 worksheet / change
輸入
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:g1")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
Range("i1") = "=A1" & Range("B1") & "C1" & Range("D1") & "E1" & Range("F1") & "G1"
Application.EnableEvents = True
End Sub