返回列表 上一主題 發帖

[發問] 關於儲存格 兩段的問題

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-3-14 11:39 | 顯示全部帖子
回復 5# mark15jill
Hsieh超版的程式沒有問題,只是取出的欄位順序與你要的相反
  1. Sub SS()
  2. For Each a In Range([a1], [A65536].End(xlUp))
  3.   ar = Split(a, Chr(10))
  4.   a.Offset(, 2).Resize(, UBound(ar) + 1) = ar
  5. Next
  6. End Sub
複製代碼
1.gif

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-3-25 19:57 | 顯示全部帖子
回復 14# c_c_lai
函數說明

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題