返回列表 上一主題 發帖

[發問] 資料分割

  1. Sub test()
  2.     Cells(1, 2) = Split(Cells(1, 1), "【作者簡介】")(0)
  3.     Cells(1, 3) = "【作者簡介】" & Chr(13) & Split(Cells(1, 1), "【作者簡介】")(1)
  4. End Sub
複製代碼

TOP

        靜思自在 : 一個人不怕錯,就怕不改過,改過並不難。
返回列表 上一主題