Board logo

標題: [發問] 頗析至列之方式尋問 [打印本頁]
作者: rouber590324    時間: 2017-7-11 08:13     標題: 頗析至列之方式尋問

dear all 大大
1.range("a1")=圖一內容方式 以*分隔 資料有 6000*
1.1 以頗析條件*方式將資料頗析至欄秀出超出欄位.部份資料無法齊全.
2.請教如何用 vba 將圖一資料以*為條件.將資料頗析至列.
3.煩不吝賜教   thanks*10000
圖一
D02*D10*X3947Y2189D03*D02*D10*X3965Y224D03
作者: rouber590324    時間: 2017-7-11 10:10

DEAR ALL 大大 -
已找到答案如下  THANKS*10000

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
作者: GBKEE    時間: 2017-7-12 07:48

回復 2# rouber590324
  1. Option Explicit
  2. Sub nn()
  3.     Dim aR
  4.   aR = Split([A1], "*")
  5.   Range("a2").Resize(UBound(aR) + 1) = Application.WorksheetFunction.Transpose(aR)
  6. End Sub
複製代碼
作者: rouber590324    時間: 2017-7-13 08:48

感謝GBKEE大大指導-100%符合需求



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