返回列表 上一主題 發帖

儲存格內有斷行如何逐列呈現

儲存格內有斷行如何逐列呈現

請問如何將a,b欄資料轉換成d,e欄,且e欄設定成文字格式

活頁簿1.zip (6.62 KB)

joyce

  1. Sub zz()
  2. Dim a, b(), t, n&
  3. a = [a1].CurrentRegion
  4. ReDim b(1 To 1048576, 1 To 2)
  5. For i = 2 To UBound(a)
  6.     t = Split(a(i, 2), Chr(10))
  7.     For j = 0 To UBound(t)
  8.         n = n + 1
  9.         b(n, 1) = a(i, 1)
  10.         b(n, 2) = t(j)
  11.     Next
  12. Next
  13. [d1:e1] = a
  14. [d2].Resize(n, 2) = b
  15. End Sub
複製代碼

TOP

隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog[img][/img]
已收集7000篇 EXCEL函數

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題