Excel VBA質問箱 IV

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

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


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

40246 / 76732

←次へ　｜　前へ→


	【41587】Re:縦セル内の文字を合成したいのです。

ponpon - 06/8/15(火) 0:34 -


	引用なし

	パスワード

こういうことですか？

　　A　　B　　C　　D　　E　　F
1　　　A市　Dビル　　　Dビル　A市,B市,C市,
2　　　B市　Dビル　　　Gビル　D市,E市,F市,G市,
3　　　C市　Dビル　　　Tビル　H市,I市,
4　　　D市　Gビル　　　Qビル　J市,K市,L市,M市,N市,
5　　　E市　Gビル　　　　　　　　　　　　
6　　　F市　Gビル　　　　　　　　　　　　
7　　　G市　Gビル　　　　　　　　　　　　
8　　　H市　Tビル　　　　　　　　　　　　
9　　　I市　Tビル　　　　　　　　　　　　
10　　J市　Qビル　　　　　　　　　　　　
11　　K市　Qビル　　　　　　　　　　　　
12　　L市　Qビル　　　　　　　　　　　　
13　　M市　Qビル　　　　　　　　　　　　
14　　N市　Qビル　　　　　　　　　　　　

Sub test()
　　Dim myDic As Object
　　Dim myR As Range, r As Range
　　
　　Set myDic = CreateObject("Scripting.Dictionary")
　　Set myR = Range("C1", Range("C65536").End(xlUp))
　　For Each r In myR
　　　　 myDic(r.Value) = myDic(r.Value) & r.Offset(, -1).Value & ","
　　Next
　　Range("E1").Resize(myDic.Count).Value = Application.Transpose(myDic.Keys)
　　Range("F1").Resize(myDic.Count).Value = Application.Transpose(myDic.Items)
　　
End Sub

0 hits

▼

【41582】縦セル内の文字を合成したいのです。 くじら 06/8/14(月) 23:18