麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 儲存格資料分析 [打印本頁]

作者: rouber590324 時間: 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 時間: 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

作者: rouber590324 時間: 2015-4-9 10:13

DEAR luhpro 大大 -
1.完全符合需求. THANKS*10000

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)