先日質問させていただいたものです。
さらなる加工が必要になりました。
例えば、
◆test
aaaaaa
iiiiiiiiiiiii
uuuuu
eeeee
ooooo
◆test2
kaaaaa
kiiiiiiiiiii
kuuuuu
keeeee
kooooo
...
これらのデータを
◆test aaaaaa
iiiiiiiiiiiiii
uuuuuu
eeeeee
oooooo
◆test2 kaaaaa
kiiiiiiiiiii
kuuuu
keeeee
koooooo
に変換はできたのですが、今度は
◆test aaaaaaaa iiiiiiiiiii uuuuuuuuuuu eeeeeee oooooo
◆test2 kaaaaaa kiiiiiiiii kuuuuuuuuu keeeeee koooooooo
のように変換する必要がでてしまいました。
マクロなどで一括で変換できないでしょうか。
当方知識が乏しいため困っております。
No.1
- 回答日時:
コピーして
「行列を入れ替えて貼り付け」
で対処しましょう。
数が多い?
(´・ω・`)
知らんがな
知識が乏しいのであれば、その知識の中でできる対処方法を考えましょう。
(繰り返し処理を行わないのにマクロでどうにかしたいとか…どう考えても他の人に手間のかかる作業をお願いしているようにしか見えないんです)
No.2ベストアンサー
- 回答日時:
こんにちは!
別シートに表示しても良いですか?
元データはSheet1のA列にあり、Sheet2に表示するとします。
標準モジュールにしてください。
Sub Sample1()
Dim i As Long, cnt As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.ClearContents
With Worksheets("Sheet1")
For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
If InStr(.Cells(i, "A"), "◆") > 0 Then
cnt = cnt + 1
wS.Cells(cnt, "A") = .Cells(i, "A")
Else
wS.Cells(cnt, Columns.Count).End(xlToLeft).Offset(, 1) = .Cells(i, "A")
End If
Next i
End With
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.3
- 回答日時:
1回きりの処理なら、
例えば、
◆test
aaaaaa
iiiiiiiiiiiii
uuuuu
eeeee
ooooo
◆test2
kaaaaa
kiiiiiiiiiii
kuuuuu
keeeee
kooooo
...
行列入れ替えて貼り付け。
csvで保存。
◆test, aaaaaa, iiiiiiiiiiiii, uuuuu, eeeee, ooooo, ◆test2, kaaaaa, kiiiiiiiiiii, kuuuuu, keeeee, kooooo, ...
「◆」を「改行+◆」に置換。
上書き保存。
◆test, aaaaaa, iiiiiiiiiiiii, uuuuu, eeeee, ooooo
◆test2, kaaaaa, kiiiiiiiiiii, kuuuuu, keeeee, kooooo, ...
csvを読み込み。
とか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【至急 詳しい方教えて下さい】Excelの表を変換したい 6 2022/04/21 18:35
- Perl perl このテキストファイルを簡単に配列に入れるには? 2 2022/04/27 20:24
- C言語・C++・C# ポインタの型変換、どうやるんでしたっけ? 2 2022/03/28 11:00
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
- Excel(エクセル) Excelの置換が上手くいかない Microsoft® Excel® 2019 MSO (バージョン 5 2022/08/17 22:26
- その他(Microsoft Office) エクセル 日付を数値に変換する方法 4 2023/03/24 12:05
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
- Windows 10 renameコマンドでファイル名からアンダースコアを消す方法 5 2023/04/24 13:33
- Java java final 1 2022/06/10 22:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
時間によってファイル名が変わ...
-
Excelで、決まった行を繰り返し...
-
Excel 2019 のピボットテーブル...
-
WPS OFFICEでの縦書きについて
-
【マクロ】ファイル名の変更に...
-
Aというブックの1というシート...
-
VBA Private Sub Worksheet_Cha...
-
エクセルで 例えば 伊藤と名前...
-
excelの不要な行の削除ができな...
-
Excelでの時間帯の入力
-
行数が不規則な一週間ごとの合...
-
ある列、或いは、ある行のセル...
-
【マクロ】フォルダからエクセ...
-
文字列になっている時間をVBAで...
-
シートAで横に並んだ項目→シー...
-
Excel2013のF6キー操作について
-
マクロの有効化するダイヤログ...
-
エクセルの順位別一覧表の自動...
-
Excel:一部のフォントでセルの...
-
エクセルの条件付き書式につい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報