Dim i As Long， j As Long， k As Long Dim rng1 As Range， rng2 As Range Dim ws As Worksheet Set ws = ThisWorkbookSheetsquotSheet1quot #39指定操作的工作表 For i =...