如图,我想提取a列的字符串的第一位到b列,但是用了如下代码,b列得到的结果却和a列一模一样,在for each循环结束的地方设置断点,调试发现for each并没有对s数组中的每一个ss进行处理,这是怎么回事呢?是我记错了知识点吗?还是逻辑没通?正确的代码应该怎么写?for i=lbound(s,1) to ubound(s,1)这样的循环我会弄,但是太麻烦,所以想以for each实现
Sub 试验()
Set r = Worksheets(1).UsedRange
s = r
For Each ss In s
ss = Left(ss, 1)
Next ss
r.Offset(0, 1).Value = s
End Sub
Sub 试验()
Set r = Worksheets(1).UsedRange
s = r
For Each ss In s
ss = Left(ss, 1)
Next ss
r.Offset(0, 1).Value = s
End Sub