返回列表 上一主題 發帖

[發問] 儲存格資料分析

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-8 14:27 | 只看該作者

[發問] 儲存格資料分析

DEAR ALL 大大
1. RANGE("A1") = M01,MA6,M90,L20,G04,G05,P30,
2.欲產生
        RANGE("B1") = M01
     RANGE("B2") = MA6
     RANGE("B3") = M90
     RANGE("B4") = L20
     RANGE("B5") = G04
     RANGE("B6") = G05
     RANGE("B7") = P30
3.請問VAB如何書寫  煩不吝賜教   THANKS
收藏 分享
羅

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
2#
發表於 2015-4-8 23:13 | 只看該作者
DEAR ALL 大大
1. RANGE("A1") = M01,MA6,M90,L20,G04,G05,P30,
2.欲產生
        RANGE("B1") = M01
...
rouber590324 發表於 2015-4-8 14:27


Sub nn()
  Dim lRow&
  Dim aR, aA
  
  aR = Split([A1], ",")
  lRow = 1
  For Each aA In aR
    Cells(lRow, 2) = aA
    lRow = lRow + 1
  Next
End Sub

TOP

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2015-4-9 10:13 | 只看該作者
DEAR  luhpro  大大 -
1.完全符合需求. THANKS*10000
羅

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題