用VBA 单元自动换行

ptguanyao

要求实现：B列中单元格超过10个字节自动换行到对应C列，如果只是统计字符可以实现，但是统计字节实现不了。
麻烦各位老师帮忙实现下，谢谢

lh123lh1234

字符都实现得了，字符为什么就实现不了了呢？都一样啊，函数稍微变下样
Sub test()
   Dim rng, a$
   For Each rng In Range("b2", [b65536].End(xlUp))
      a = rng.Value
      rng = LeftB(a, 10)
      rng.Offset(0, 1) = MidB(a, 11, LenB(a))
   Next
End Sub

ptguanyao

lh123lh1234 发表于 2019-9-6 17:52
字符都实现得了，字符为什么就实现不了了呢？都一样啊，函数稍微变下样
Sub test()
   Dim rng, a$

vba 小白 刚学，脑袋不灵光啊，老师为什么运行会提示错误。

lh123lh1234

ptguanyao 发表于 2019-9-6 18:00
vba 小白 刚学，脑袋不灵光啊，老师为什么运行会提示错误。

      rng.Value = LeftB(a, 10)
      rng.Offset(0, 1).Value = MidB(a, 11, LenB(a))
忘了加这个，这里两个加上.value

lh123lh1234

ptguanyao 发表于 2019-9-6 18:00
vba 小白 刚学，脑袋不灵光啊，老师为什么运行会提示错误。

或者把dim rng声明一下，写成dim rng as range

ptguanyao

lh123lh1234 发表于 2019-9-6 18:13
或者把dim rng声明一下，写成dim rng as range

非常感谢可以了

jiangjiang211

记号一下，也许后面用得上