儲存格資料分析 - Excel程式區 - 麻辣家族討論版版

[發問] 儲存格資料分析

1^# 跳轉到 »

發表於 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

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。