彰化一整天的論壇

 找回密碼
 立即註冊
查看: 1167|回復: 3

excel一個儲存格的內容用段落符號分格轉變為多個...

[複製鏈接]
發表於 2021-1-24 20:39:44 | 顯示全部樓層 |閱讀模式
大師請問:有人在一個儲存格內輸入了許多資料,用段落符號分格.可有辦法將每筆資料分別列在其他的單個儲存格內?
例如檔案中(A1.xlsx),A28儲存格內輸入了以下內容(檔案中綠色儲存格)
龍騰出工數:8人施工說明:10F柱牆鋼筋綁紮
騏駿出工數:20人施工說明:10F柱牆模版組立
文諺出工數:16人施工說明.........
等各項資料,但我希望將內容轉到以下儲存格(檔案中紅字部份)
A13 龍騰  E13  8
A14 騏駿  E14  20
A15 文諺  E15 16.......
因為有合併儲存格的問題...等,是否有快速的方法可以做到.因為資料有很多,希望能巨集來完成.
感謝大師的指導..

A1.xlsx

17.46 KB, 下載次數: 120

回復

使用道具 舉報

發表於 2021-1-25 11:39:00 | 顯示全部樓層
您可以用split,ubound,迴圈,instr,left這些函數去解決,請試著寫看看,有問題再提出來。
回復 支持 反對

使用道具 舉報

發表於 2021-2-2 18:56:02 | 顯示全部樓層
imingho 發表於 2021-1-25 11:39
您可以用split,ubound,迴圈,instr,left這些函數去解決,請試著寫看看,有問題再提出來。 ...

請參考.

  1. Public Sub split_data()
  2.     Dim data As String
  3.    
  4.     Dim data_array As Variant
  5.    
  6.     Dim i As Integer
  7.    
  8.     Dim row_data As String
  9.    
  10.     Dim row_data_array As Variant
  11.    
  12.     Dim data1 As String
  13.    
  14.     Dim data2 As String
  15.    
  16.     data = Range("A28").Value
  17.    
  18.     data_array = Split(data, Chr(10))
  19.    
  20.     For i = 0 To UBound(data_array)
  21.         row_data = data_array(i)
  22.         row_data_array = Split(row_data, ":")
  23.         data1 = row_data_array(0)
  24.         data1 = Replace(data1, "出工數", "")
  25.         data2 = row_data_array(1)
  26.         data2 = Replace(data2, "人施工說明", "")
  27.         Range("a" & 13 + i).Value = data1
  28.         Range("e" & 13 + i).Value = data2
  29.     Next
  30. End Sub
複製代碼


回復 支持 反對

使用道具 舉報

發表於 2021-2-5 18:56:58 | 顯示全部樓層
我現在看得懂它們在幹嘛了
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)

GMT+8, 2021-9-21 17:00 , Processed in 0.099495 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回復 返回頂部 返回列表