Subtest()DimRngAsRangeSetRng=SelectionRng.Resize(1,8).SelectEndSub这是选择当前选中单元格同行的八个单元格，包括原来的当前单元格如果不包括原来的单元格代码修改如下Subtest()DimRngAsRangeSetRng=SelectionRng.offset(,1).Resize(1,8).SelectEndSub如果是按当前单元格向右第8个单元格Subtest()DimRngAsRangeSetRng=SelectionRng.offset(,8).SelectEndSub如果是固定H列，代码如下Subtest()Dimi%i=Selection.RowCells(i,8).SelectEndSub或直接用Subtest()Cells(Selection.Row,8).SelectEndSub
