Question

Excel表格中如何实现“/”后自动分行

已做好的表格，有大量带有“/”的单元格，如何实现“/”后自动分行？跪求帮忙！
达到这样的效果





Answer 1

Sub 自动换行()
  h = Range("A100000").End(xlUp).Row '最大行号
  l = Range("IV1").End(xlToLeft).Column '最大列号
  arr = Range(Cells(1, 1), Cells(h, l)) '区域数据赋值给数组arr
  For i = 1 To h '行循环
    For j = 1 To l '列循环
      arr(i, j) = Replace(arr(i, j), "/", Chr(10)) '将"/"替换成换行符
    Next j
  Next i
  Range(Cells(1, 1), Cells(h, l)) = arr '覆盖原来区域
End Sub

 

如果要保留"/"号，则将

arr(i, j) = Replace(arr(i, j), "/", Chr(10))

改成

arr(i, j) = Replace(arr(i, j), "/", "/" & Chr(10))

追问

这段程序填加在哪里？
见笑了！

追答

Alt+F11键，将上面的11行代码粘贴进去。运行时在【视图】中点【宏】再点【查看宏】再点【执行】

Answer 2

说实话想了好久不知道你这【自动分行】是什么意思。这四个字不是专业术语，你把你的想法放在了肚子里，然后希望人家猜到你想做什么……
现在大家看到的是你的数据源，去不知道所谓【自动分行】需要达到什么效果。建议你把你脑子里的模拟数据源在处理后希望达到的结果，也做个模拟表出来，这样大家就知道，你究竟想做什么了

追问

达到这样的效果

Answer 3

请描述，你要达到什么样的效果。