以下代码选择的有偏移 偏移的好像是当前工作表与selection之间的左上角之间位移 Set rg = Selection Set rg1 = rg.Range(rg.Range(“a1”), rg.Cells(1, rg.Columns.Count)) ’ 这里是对策点, 需要把第一个rg改成sheet单位, 就能实现括号内部实际想要的区域 rg1.Select