データの内容をひとつのセルに改行して入れていくという
作業を自動化できないでしょうか?
「データ」シート
メモ 地点 from ~ to 線種
A1,B1,C1,D1,E1,F1に上の項目があり、
メモ、地点には文字、from ~ toには時刻(00:00)が入り、線種には
=====というような記号が入ります。("~"の列には00:00形式の時刻が入る他"~"という記号が入るときもあります)
それぞれの項目の下にデータを入力してあります。
これを「まとめ」シートに
・A~E列までをひとつのセルに改行してまとめる
・F列はその右隣にそのまま表記する
と自動でできないかと考えています。例えば、「データ」2行目に
A2 観劇
B2 日本大劇場
C2 10:00
D2 ~
E2 12:00
F2 ======
とある場合、「まとめ」シート
A2セルは
観劇
日本大劇場
10:00~12:00
と改行して入り、B2に「データ」F2の======が入るように「データ」シートのデータがなくなるまで右にずらっとつなげていくようにしたいと思っています。今手作業でやっているのですが時間がかかって・・・。
よろしくお願いします。
No.3
- 回答日時:
もう回答は出てますが、この課題の要素スキルは
(1)セル内改行は文字列の間にChr(10)を入れる(&で結合)
(2)結合は「セル値(番地)&セル値(番地)&・・」
その間に(1)のセル内改行コードが入る。
付け加えて、
(3)日付セルが日付シリアル値ならFormat函数で日付の文字列化
(4)時刻の「To]に当たるデータがない場合「~」を削除
などです。
ーー
このようにコードは判らなくても、文章に分解できるようになってください(ブレークダウン)。そうすれば質問も明確で短くなります。
例も適切なものが作れます。
No.2ベストアンサー
- 回答日時:
#1です。
VBAの例Sub MACRO1()
Dim RG As Range
Dim R1, R2 As Integer
Set RG = ActiveWindow.RangeSelection
R1 = RG.Row
R2 = R1 + RG.Rows.Count - 1
For I = R1 To R2
If Cells(I, 1) = "" Then Exit For
Cells(I, 1) = Cells(I, 1) & Chr(10) & Cells(I, 2) & Chr(10) & Format(Cells(I, 3), "hh:mm") & "~" & Format(Cells(I, 5), "hh:mm")
Range(Cells(I, 2), Cells(I, 5)) = Null
Next I
End Sub
mshr1962さんありがとうございました。実行したところ改行してひとつのセルにまとまりました。こうやってコードをかけるとうらやましいです。悲しいことにご提示いただいた例を元に改変して利用することが今の自分の力量ではできません。もう少し待ってみると同時に自分でも改変を試みてみます。
No.1
- 回答日時:
VBA使わなくても関数では駄目でしょうか?
G2=A2&CHAR(10)&B2&CHAR(10)&TEXT(C2,"hh:mm")&D2&TEXT(E2,"hh:mm")
でG2に纏められます。
この結果をコピーしてA2に形式を選択して貼り付けで値にすればいいと思いますけど。
※セルの書式設定の配置で「折り返して全体を表示」似チェックしてください。
ありがとうございました。実は関数による方法もやってみましたが
今後の実用面から考えるとVBAであれば尚いいと思っています。
自分でできないくせに何なんですが・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- Visual Basic(VBA) 【VBA】データを入力後に,同一シート内に履歴として転記するVBAコードを教えていただきたいです。 3 2022/11/16 01:37
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excelの複数のセルをひとつのセルにまとめて貼り付けをするときに改行
Excel(エクセル)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
Excel、VBA、1行中複数セルにセル内改行、行方向に分割
Excel(エクセル)
-
-
4
文字列の結合を空白行まで実行
Visual Basic(VBA)
-
5
Excel VBAで改行を含む文字列を1つのセルに貼り付け
Excel(エクセル)
-
6
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
7
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
8
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
9
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
10
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
13
Excel:複数のセルの内容を、ひとつのセルにすべて移したい。
Excel(エクセル)
-
14
Excel VBAで改行を含めたセルのコピー
Excel(エクセル)
-
15
【VBA】条件に一致したセル値をカンマ区切りで結合したい
Excel(エクセル)
-
16
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
17
VBAでセル入力の数式に変数を用いたい
Excel(エクセル)
-
18
VBAのテキストボックスに文字列を貼り付ける方法
Access(アクセス)
-
19
access インポート時、既にあるデータは上書き
Access(アクセス)
-
20
テキストボックスにセルの値を複写する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
同一セルに日時があるものを日...
-
1年分のデータから特定の月分...
-
EXCELでCSVファイル保存すると...
-
Excelで指定した条件と一致する...
-
色なしセルの合計値の出し方に...
-
1つのセルにまとまっている情報...
-
COUNTIFの反対の関数はあるので...
-
エクセルVBAで、複数セルのデー...
-
エクセルでセルを一括で右詰に...
-
エクセルで数字、文字列混在の...
-
ドロップダウンリストで空白の...
-
Excelで連続データを行飛ばしで...
-
Excelのシートごとの日付の追加
-
EXCELで足し算できるのにSUM...
-
エクセル数式・等間隔ごとの範...
-
【エクセル】一覧から指定デー...
-
複数のシートの日付データを、...
-
Excelの連続データ作成とmatch関数
-
エクセルの関数について
-
Excelで、表紙に、住所を自動で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
1年分のデータから特定の月分...
-
同一セルに日時があるものを日...
-
Excelで指定した条件と一致する...
-
EXCELでCSVファイル保存すると...
-
エクセルで数字、文字列混在の...
-
COUNTIFの反対の関数はあるので...
-
ドロップダウンリストで空白の...
-
1つのセルにまとまっている情報...
-
エクセルVBAで、複数セルのデー...
-
エクセルでセルを一括で右詰に...
-
EXCELで年月日の表記から日付部...
-
複数のシートの日付データを、...
-
EXCELで足し算できるのにSUM...
-
webクエリのurlの変更方法
-
OFFSET関数を使用した印刷範囲...
-
エクセルで特定の行を除いて計...
-
Excelで連続データを行飛ばしで...
-
excelで平均差を出したい
-
エクセル数式・等間隔ごとの範...
-
Excel2010 vlookup 検索値が複...
おすすめ情報