private sub commandbutton3_click() dim ws as worksheet dim rng as range dim cell as range dim combinedarray() as string dim i as long dim j as long dim k as long dim isduplicate as boolean ' 设置工作表对象 set ws = thisworkbook.worksheets("行—原始数据") ' 初始化数组 redim combinedarray(1 to ws.cells(ws.rows.count, "d").end(xlup).row) ' 遍历a列、b列和c列的所有单元格 i = 1 do while not isempty(ws.cells(i, "d")) ' 合并b列和c列的相应单元格 combinedarray(i) = ws.