因为你的Cells没指明是谁的cells默认就是activesheet的cells
Sub a()
Sheets("sheet1").Range(Sheets("sheet1").Cells(1, 2), Sheets("sheet1").Cells(6, 2)).Value = Sheets("sheet1").Range(Sheets("sheet1").Cells(1, 1), Sheets("sheet1").Cells(6, 1)).Value
End Sub
简单点写就是
Sheets("sheet1").Range("b1:b6")=Sheets("sheet1").Range("a1:a6");
都是作用于sheet1的
把代码里面的 Sheets("sheet1") 改为 Activesheet
同意楼上