求助代码求助代码

1吧吧

求助代码求助代码

明天会更好zj

ynzsvt

见test3to1

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.11.24
   
2.     arr = Sheets("Sheet3").[b1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To 1)
   
4.     For i = 1 To UBound(arr)
   
5.         st = CStr(arr(i, 1))
   
6.         brr(i, 1) = Left(st, 2)
   
7.     Next
   
8.     Sheets("Sheet1").[b1].Resize(UBound(arr), 1) = brr
   
9.     MsgBox "OK！"
   
10. End Sub
    

复制代码

1吧吧

ykcbf1100 发表于 2024-11-24 15:21
参与一下。。。

老师们，不仅只有b列      

如果是      B列：E列  代码又如何写呢

这里Sheets("Sheet3").[b1：E1]

这里Sheets("Sheet1").[b1：E1].Resize(UBound(arr), 1) = brr

1吧吧

请老师们修改