| |
こんにちは。かみちゃん です。
>ご返答ありがとうございます
[46812]のことですね。
ｈｔｔｐ://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=46812;id=excel
（先頭４文字は、全角になっているので、半角にしてください。）
コメントに対するコメントであれば、上記の右上に「返信」というところがある
のでそれをクリックすると、そのコメントに対して、返信コメントを書くことが
でき、スレッドが分散されなくなります。
> 出力セルはA20にまとめるのでなく2個目はA21、3個目はＡ22に表示させたい
Sheets("Sheet2").Range("A20").Value = Left(strKamoku, Len(strKamoku) - 1)
の部分を
Sheets("Sheet2").Range("A20") _
.Resize(UBound(Split(strKamoku, vbCrLf))).Value = _
Application.Transpose(Split(strKamoku, vbCrLf))
にしてください。
なお、[46815]でKeinさんからもついているコメントも参考にしてみてください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
