For i = 1 To lastRow If Not IsEmpty(ws.Cells(i, 1).Value) Then nonEmptyCells.Add ws.Cells(i, 1) End If Next i ' 遍历第二列的所有单元格 For i = 1 To lastRow If Not IsEmpty(ws.Cells(i, 2).Value) And ws.Cells(i, 2).Address <> nonEmptyCells(nonEmptyCells.Count).Address Then ' 如果第二列的单元格不为空且与第一列的最后一个非空单元格不连续，则将其添加到集合中 nonEmptyCells.Add ws.Cells(i, 2) End If Next i ' 清除第一列的所有内容 ws.Range("A1:A" & lastRow).ClearContents ' 将非空单元格的值复制到第一列 For Each cell In nonEmptyCells ws.Cells(cell.Row, 1).Value = cell.Value Next cell End Sub 3. 按下`F5`键运行代码，筛选出不连续的两列不为空的数据。 扩写讲话稿 ①安全第一，来到华原股份有限公司第一堂课就是讲安全，安全包括上下班安全、车间生产安全 ... ②做人做事要有自信，现在已经出到社会吃完成为职场人就不要依赖父母。 ③步入职场就要沉下心来，用心，自主，积极的提升自己。 ④在职场要努力，多总结经验寻找方法。 ⑤多去学习华原的成长史，以及华原领导班子的成长过程、能力。 ⑥有效沟通很重要，多和导师密切联系，积极主动

扩写讲话稿 ①安全第一，来到华原股份有限公司第一堂课就是讲安全，安全包括上下班安全、车间生产安全 ... ②做人做事要有自信，现在已经出到社会吃完成为职场人就不要依赖父母。 ③步入职场就要沉下心来，用心，自主，积极的提升自己。 ④在职场要努力，多总结经验寻找方法。 ⑤多去学习华原的成长史，以及华原领导班子的成长过程、能力。 ⑥有效沟通很重要，多和导师密切联系，积极主动

随机给出10个名字或代号

给出10个人名

零基础想考研的老师说明什么

学习规划师销售怎么给一个零基础想考研的老师一个建议

做为负责考研的老师，如何建议一个零基础的老师考研呢

做为负责考研的规划师，如何给一个零基础想拿证的老师，一个建议，结合政策、现状建议她考研有什么好处

DCC干盘管施工质量验收标准

DCC干盘管施工质量验收标准

干盘管施工质量标准