| |
▼ima さん、こんばんは。
例えば、シート（Sheet1）のＢ列に以下のようなデータが入っていたとします。
Ｂ
1 回答
2 ◎◎
3 ●●●●
4 ×××
5 ○○○○○○○○
6 △△△△
7 ■■■■■■■■■■■■■■■■
8 □□□□□□□□□□
9 ？？？？？？？？？？？？？？？
10 ∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴
11 \\\
これで以下のコードを実行すると、
'==============================================================
Sub test()
With Worksheets("sheet1")
.Cells(13, 2).Value = "・" & Join(Application.Transpose(.Range("b2:b11")), vbLf & "・")
.Cells(13, 2).Columns.AutoFit
End With
End Sub
セルB13に
・◎◎
・●●●●
・×××
・○○○○○○○○
・△△△△
・■■■■■■■■■■■■■■■■
・□□□□□□□□□□
・？？？？？？？？？？？？？？？
・∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴∴
・\\\
に上記のように表示されます。
後は､ima さんのコードにこれを応用してみて下さい。
|
|
ichinose
- 04/4/30(金) 21:29 -
