摘要: 1 Dim Volume 2 Private Sub Worksheet_Change(ByVal Target As Range) 3 Dim Ran1 As Range, Ran2 As Range, UnionRan As Range 4 Set Ran1 = Sheets(" ").Range(" ") 5 Set Ran2 = Sheets(" ").Range(" ") 6 Set UnionRan = Application.Union(Ran1, Ran2) 7 Dim Rng As Range 8 阅读全文