Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37097 / 76732

←次へ　｜　前へ→


	【44809】Re:数量分分割して、決まった表に貼り付けるには？

Kein - 06/12/1(金) 17:58 -


	引用なし

	パスワード

>列はＡとＢの2列
この２列にどのように割り振るのか、そのルールが分からないと
途中までの処理しか回答できません。なのでいちおう、D1から下へ
１列に並べてみるとして・・

Sub MyData_Splt()
　 Dim St As String
　 Dim i As Long, Cnt As Long
　 Dim Ary As Variant
　 Dim C As Range
　
　 With Worksheets("Sheet1")
　　　For Each C In .Range("A2", .Range("A65536").End(xlUp))
　　　　 Cnt = C.Offset(, 1).Value
　　　　 If Cnt > 0 Then
　　　　　　For i = 1 To Cnt
　　　　　　　 St = St & C.Value & ","
　　　　　　Next i
　　　　 End If
　　　Next
　　　St = Left$(St, Len(St) - 1)
　　　Ary = WorksheetFunction.Transpose(Split(St, ","))
　　　.Range("D1").Resize(UBound(Ary)).Value = Ary
　 End With
　 Erase Ary
End Sub

0 hits

▼

【44790】数量分分割して、決まった表に貼り付けるには？ えん 06/12/1(金) 13:35