Question

当我使用以下代码时，为什么单元格未分类？

Dim numOfRow As Integer
numOfRows = Worksheets("result").Cells(Rows.Count, "s").End(xlUp).Row

Range("S10:V" & CStr(numOfRows)).Select
Application.CutCopyMode = False
Selection.Insert shift:=xlToRight

转移前的细胞含量：236259 右移后：324359 （有3400个细胞，所以它们随机混合，但为什么？在第242行之后它们被正确移动，细胞内容就像它们应该的那样。）

Answer 1

天哪啊。我太笨了我找到了解决方案。我对以下代码略过了：

Rows("21:241").Select Selection.Sort Key1:=Range("H21"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("H21").Select

向右移动时，Excel会取消单元格

1 个答案: