Posted on 2021年8月6日 by Hana 逻辑为需要先定位有数据最后一行的行数,然后再进行想要的操作。重点请注意红色文字处,加上这个参数End(xlDown)表示从头选到最后一个 Dim mixsheet As Worksheet Set mixsheet = Worksheets("Sheet1") mixsheet.Select bEnd = mixsheet.Range("C:C").End(xlDown).Row mixsheet.Range("c1:c" & bEnd).Copy