|
▼ima さん、こんばんは。
例えば、シート(Sheet1)のB列に以下のようなデータが入っていたとします。
B
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 さんのコードにこれを応用してみて下さい。
|
|