,两个单元格列不变,行每次加4循环你都意思 Sheet1 E列和 Sheet2 B列不变? 每隔4行写入一个? 可是你的程序里面写的6如下改成 Sheet2 B列,Sheet1 E列 不变,改成都+4:If Sheet1.Cells(u, 5) <> "" Then Sheet2.Cells(q, 2).Value = Sheet1.Cells(u, 5).Valueu = u + 4q = q +4cells( 行,列)cells 第一个参数是行, 后面才是列,E列是第5列