逻辑为需要先定位有数据最后一行的行数,然后再进行想要的操作。重点请注意红色文字处,加上这个参数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