摘要： Const START_ROW = 1 Const END_ROW = 3000 Const COL_TARGET = 1 Const COL_SOURCE = 2 Const TARGET_SHEET = "Sheet1" Public Sub MERGEROWS() Dim s As Worksheet Set s = ThisWorkbook.Sheets(T... 阅读全文