如何將大量的資料排列格式，要自動換列?

葉董

葉董
個人積分：34分
文章編號：66811849

34分

樓主

2017-12-16 0:04

請問各位Excel高手
有辦法把資料
自動超過字數後
即跳至下一列
資料拉進來
要列印的帳本上格式
是固定的

總不能每行
都剪下貼上

感謝各位...

如何將大量的資料排列格式，要自動換列?

2017-12-16 0:04 發佈

文章關鍵字資料排列格式

internetlin

internetlin
個人積分：855分
文章編號：66812041

855分

2樓

2017-12-16 0:39

葉董 wrote:
請問各位Excel...(恕刪)

所以你的意思是說要自動把超過的字數全部移到下一列
然後下一列如果超過再以此類推？

那如果第一欄被分成了三列，可是第二、第三欄只有一列
下一筆資料的第二、第三欄不就會被放到上筆資料的第二、第三欄下面
而不會跟同筆資料的第一欄從同一列開始了?
感覺會有很多問題，而且沒有內建的功能可以達成
就算寫個巨集都要費上一點心思才能解決細節問題

能不能用下圖中的自動換行，再配合置頂、靠左排版就好呢?
還是一定要一列一列的?

internetlin

internetlin
個人積分：855分
文章編號：66812216

855分

3樓

2017-12-16 1:10

葉董 wrote:
請問各位Excel...(恕刪)

如果不是多欄多列的資料
而是只有一大篇文字
那麼可以試試下面的function來達成自動分列
從第四列開始可以直接下拉，後面都按相同的規律進行了
希望有幫助

Function內容說明：

B3 function內容: =LEFT(B2,$B$1)
從B2的原始文字裡依照B1指定的字數從左邊截取前五個字。

C3 function內容: =RIGHT(B2,LEN(B2)-LEN(B3))
從B2的原始文字裡依照B1指定的字數從右邊截取"總字數減去已截取的B3字數"，
也就是不含B3的剩餘原始文字。

B4 function內容: =LEFT(C3,$B$1)
在剩餘原始文字中由左邊截取前五個字。

C4 function內容: =RIGHT(C3,LEN(C3)-LEN(B4))
C3直接下拉就行，不含B4的剩餘原始文字。

葉董

葉董
個人積分：34分
文章編號：66816391

34分

樓主

2017-12-16 16:09

internetlin wrote:
如果不是多欄多列的...(恕刪)

感謝您撥空回答

因為
我的資料是品名太長所以要改成多列,因為其它欄位還有其它資料,例如:數量單價合計備註..
屬於多欄多列,所以不適合...
小公司自學所以有這些困擾!!

非常感謝謝您

祝順心

宅男乙

宅男乙
個人積分：5708分
文章編號：66817002

5708分

5樓

2017-12-16 17:37

葉董 wrote:
我的資料是品名太長所以要改成多列...(恕刪)

我是用 openoffice calc, 你就找找看 Excel 相對應的功能

先把要換行的那幾列或欄位選起來, 或 ctrl-A 全選..

修改格式, 打開自動換行 .

用自動列高...

104 那列本來是一行打到後面去, 現在就變多行, 列也自動加高了..

joblyc017

joblyc017
個人積分：208分
文章編號：66818186

208分

6樓

2017-12-16 20:51

公式詳解，請參考：https://goo.gl/18MA7w

internetlin

internetlin
個人積分：855分
文章編號：66820368

855分

7樓

2017-12-17 2:12

joblyc017 wrote:
公式詳解，請參考：https...(恕刪)

真是開眼界了
不曾想過可以把不規則的字串處理成有規律的
然後再透過運算讓它們在需要的地方出現

snare

snare
個人積分：2983分
文章編號：66825578

2983分

8樓

2017-12-17 19:37

葉董 wrote:
要列印的帳本上格式
是固定的...(恕刪)

都說格式是固定的，代表有幾列可填資料也是一開始就確定的
也就是說如果字數多到，所有列都放不下，一定會超出帳本
那這筆資料在沒修改前，根本沒有列印的必要

我認為沒必要搞到那麼複雜，用簡單的mid就好了

範例：假設可放資料的列數有4列，每列只能放5個字，所以總字數上限是20字

字數太多，設個警告就好，或用格式化條件上個顏色也行
因為字多到帳本放不下，印出來有什麼意義呢???

更簡單一點，直接把可放資料的那幾列用合併儲存格+自動換行，不是也可以嗎，也不會影響格式

因為您沒給檔案，如果是joblyc017這位高手圖片中的排列方式

用vba比較方便，試看看吧

Sub test()

c = 9 ' =>調整每格字數
lastrow = Sheets("工作表1").Range("a1").CurrentRegion.Rows.Count
r = 2
For i = 2 To lastrow
If Len(Cells(r, 1)) > c Then
addrow = WorksheetFunction.RoundUp(Len(Cells(r, 1)) / c, 0) - 1
temp = Cells(r, 1)
Cells(r, 1) = Mid(temp, 1, c)

For j = 1 To addrow
r = r + 1
'預設只修改A、B，2個欄位
Range(Cells(r, 1), Cells(r, 2)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(r, 1) = Mid(temp, j * c + 1, c)

Next j
End If
r = r + 1
Next

End Sub

葉董

葉董
個人積分：34分
文章編號：66826692

34分

樓主

2017-12-17 22:01

宅男乙 wrote:
我是用 openoffice...(恕刪)

感謝您

可惜這方法還是不適合我用

謝謝您

祝順心

葉董

葉董
個人積分：34分
文章編號：66826713

34分

樓主

2017-12-17 22:04

joblyc017 wrote:
公式詳解，請參考：https...(恕刪)

您太強了

這方法改善了我百分之80的困擾

謝謝您 5分奉上

祝順心