Sub プログラム結合版() Dim i As Long Dim s As String i = 2 Do While Cells(i, 2) <> "" _ s += monthProgram.Cells(i,2).Value _ s += "," _ i += 1 Loop Debug.Print (s) End Sub 0837名無しさん＠そうだ選挙にいこう2019/07/14(日) 17:36:16.88>>835 Excelのセルに入った大量の文章は、メモ帳経由でコピペすれば単なるテキストに変換されるよ
Excelでコピー メモ帳にペースト メモ帳でコピー Wordにペースト
こんだけの簡単な作業 0838たすけて。。2019/07/14(日) 17:36:41.32 すいません。 × monthProgrami ○ monthProgram です。。。 0839たすけて。。2019/07/14(日) 17:41:55.88>>837 ありがとうございます。 単にコピペするのでなくて、必要なセルだけを抽出して、Wordファイルを完成させるのです。。 0840名無しさん＠そうだ選挙にいこう2019/07/14(日) 17:42:59.74>>836 Sub プログラム結合版() Dim i As Long Dim s As String i = 2 Do While Cells(i, 2) <> "" And Not IsError(Cells(i, 2).Value) s = s + Worksheets("monthProgram").Cells(i, 2).Value s = s + "," i = i + 1 Loop s = Left(s, Len(s) - 1) Debug.Print (s) End Sub 0841たすけて。。2019/07/14(日) 17:57:33.72>>840 ありがとうございます。 「オブジェクトが有効範囲にありません」というエラーが返ってきます。 オブジェクト名は正しいはずなのですが、、 コードの問題でなく、何かのエクセルの環境ですよね。 0842たすけて。。2019/07/14(日) 18:09:20.28 自己解決しました >>840のコードを次のように変更したら正しく出力されました！！！ >>840さんありがとうございました。
s = s + Worksheets("monthProgram").Cells(i, 2).Value ↓ s = s + monthProgram.Cells(i, 2).Value 0843名無しさん＠そうだ選挙にいこう2019/07/14(日) 19:11:49.29 Doの行にもCellsが2つあるけどオブジェクト名を省略したらまずいのでは 0844たすけて。。2019/07/14(日) 19:47:08.99 度々すいません。先のものを発展させて、次のようにエクセルデータがあります A B C 1 日程 週間テーマ 2 12月2日〜 読む・書く 作文 3 12月9日〜 対人関係 会話のマナー 4 12月16日〜 家事 料理 5 6 7 8 作成年度 9 2018 10 作成月 11 12 :::::::::::::::::::::::::::::::::::下のように出力したい::::::::::::::::::::::::::::::::::: 【2018年度プログラム結合版、プログラム表紙、カリキュラム】 2018年度12月 2018年12月 [大テーマ]読む・書く,対人関係,家事 [小テーマ] 作文, 会話のマナー,料理 0845たすけて。。2019/07/14(日) 19:47:53.67 :::::::::::::::::::::::::::::::::::作ったソース::::::::::::::::::::::::::::::::::: Sub プログラム結合版() Dim i As Long Dim h As String Dim s As String Dim yyyy As String Dim mm As String yyyy = Str(monthProgram.Cells(9, 1).Value) mm = Str(monthProgram.Cells(11, 1).Value) h = "【" + yyyy + "年度プログラム結合版、プログラム表紙、カリキュラム】" s = yyyy + "年度" + mm + "月" + yyyy + "年" + mm + " 月［大テーマ］" i = 2 Do While Cells(i, 2) <> "" And Not IsError(monthProgram.Cells(i, 2).Value) s = s + monthProgram.Cells(i, 2).Value s = s + "," i = i + 1 Loop s = Left(s, Len(s) - 1) s = s + "［小テーマ］" i = 2 Do While Cells(i, 3) <> "" And Not IsError(monthProgram.Cells(i, 3).Value) s = s + monthProgram.Cells(i, 3).Value s = s + "," i = i + 1 Loop s = Left(s, Len(s) - 1) Debug.Print (h) Debug.Print (s) End Sub 動きません。何がわるいでしょうか？？ 0846たすけて。。2019/07/14(日) 19:52:34.14 あ、TABが効かないのかあ。これでわかるのかな。。
