剪切A列代码到B列

小草看日出

Sub 剪切粘贴()
Dim i%
For i = 1 To Range("a65536").End(xlUp).Row
Range("b" & i).Value = Left(Range("a" & i), 5)
Next
End Sub
想剪切A列里的5位学校代码粘贴到B列，然后清除A列里的5位学校代码，就是“剪切粘贴”的目的，可是我写这个只能复制粘贴到B列，A列里的5位代码并未剪切掉，请问怎样修改才能把A列的5位代码既粘贴到B列又清除掉A列的?谢谢。

盼盼198310

...........

ovxyz

小草看日出

ovxyz 发表于 2023-2-23 15:20

结果是我想要的。多谢帮助。看来还需要替换A列，不能直接剪切呀。

gwjkkkkk

参与一下。。。

小草看日出

盼盼198310 发表于 2023-2-23 15:15
...........

Sub 宏2()
Dim ar(), r
r = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
ar = Sheet1.Range("a1:b" & r)
For i = 1 To UBound(ar)
    s = Split(ar(i, 1), " ")
    ar(i, 1) = s(0)
    ar(i, 2) = s(UBound(s))
Next
Sheet1.Range("a1").Resize(UBound(ar), 2) = ar
End Sub

这段代码里面的ar(i, 2) = s(UBound(s))我换成ar(i, 2) = s(1)，提示下标越界，不知为何？从百度上查，Split返回的结果是一个数组，其对应的顺序分别是（0,1,2，…），既然 ar(i, 1) = s(0)可以，为何ar(i, 1) = s(1)不行呢？请指导，让我学习一下，谢谢。

sxbjzjf110

Sub 宏2()
    Dim n, r
    n = Range("a1048576").End(xlUp).Row
    For r = 1 To n
        Cells(r, 2).Value = Mid(Cells(r, 1), 1, 5)
    Next
End Sub

sxbjzjf110

小草看日出

gwjkkkkk 发表于 2023-2-23 20:37
参与一下。。。

谢谢帮助。

盼盼198310

小草看日出 发表于 2023-2-23 20:47
Sub 宏2()
Dim ar(), r
r = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

你在本地窗口看下下标越界的时候,对应的i值是多少,然后再到表格上查看相应的单元格,就明白了