![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.4ベストアンサー
- 回答日時:
数式でやるならA1セルに
=IF(COUNTIF($B$1:$AD$83,"*?")<ROW(A1),"",
INDEX($B$1:$AD$83,SMALL(IF($B$1:$AD$83<>"",ROW($B$1:$AD$83)),ROW(A1)),
MOD(SMALL(IF($B$1:$AD$83<>"",ROW($B$1:$AD$83)*100+COLUMN($B$1:$AD$83)-1),ROW(A1)),100)))
[Ctrl]+[Shft] +[Enter] で確定、配列数式。{ }で挟まれる
No.3
- 回答日時:
こんにちは!
VBAになりますが、一例です。
元データはSheet1にあり、Sheet2のA列に羅列するとします。
Alt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)マクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub Sample1() 'この行から//
Dim cnt As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
wS.Range("A:A").ClearContents
For Each c In .Range("B4:AD83")
If c <> "" Then
cnt = cnt + 1
wS.Cells(cnt, "A") = c
End If
Next c
End With
End Sub 'この行まで//
※ 関数でないので、データ変更があるたびに
マクロを実行する必要があります。m(_ _)m
No.2
- 回答日時:
取り急ぎ処理するならNo.1の回答にある1の方法ですね。
セル範囲 B4:AD83 を選択し、コピーします。
テキストエディタに貼り付けます。
[タブ] を [改行] に置換します。
[改行][改行] を [改行] に置換します。
置換し終わったものをコピーします。
F列に貼り付けます。
この時使用するテキストエディタは正規表現を扱えるもの。
オススメはこちら。
TeraPad - 窓の杜ライブラリ
http://www.forest.impress.co.jp/library/software …
[タブ] を [改行] に置換は、検索文字「\t」置換後文字「\n」とします。
[改行][改行] を [改行] に置換は、検索文字「\n\n」置換後文字「\n」とします。
No.1
- 回答日時:
考え方は2つあります。
1.テキストエディタにコピーしてタブを削除する方法。
2.数式を使う方法
=if(a1="","",a1)&if(b1="","",b1)&if(c1="","",c1)&if(d1="","",d1)&if(e1="","",e1)
ありがとうございます。教えていただいた数式を使う方法で行ったのですが、
一つのセルの中に下のように複数の列の文字が入ってしまいました。
旅費交通費,客先訪問,SCP,484旅費交通費,客先訪問,WSC,1298旅費交通費,客先訪問,SDE,864旅費交通費,客先訪問,CMD,330
私の説明不足がございました。
できるのならば、複数の列のものを分けて並べたいです。
例えばB5のセル、C5のセルに値が入っている場合は
行:B5、C5セル ではなく。
行:B5
行:C5 のようにしたいです。
教えていただいている立場なのに申し訳ございません。
可能であれば、引き続きよろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Excel(エクセル) ExcelのIF関数 2 2022/04/14 16:11
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- その他(プログラミング・Web制作) 変換のプログラムを教えてください。 6 2023/07/01 09:57
- Word(ワード) ワード。長い四角の中に文字を体裁良く入力するには。 2 2022/09/24 14:19
- Excel(エクセル) Excel 値を返す数式についてです 3 2022/11/21 20:08
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
在庫管理表に使うエクセルの関...
-
下記マクロでMsgBox "空白です...
-
REGEXREPLACE関数について、
-
エクセルでバーコード作成し使...
-
【マクロ】for next構文について
-
ユーザー定義関数をアドイン登...
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
エクセルで表
-
PDFの請求明細をエクセルにしたい
-
エクセルの関数について教えて...
-
Excelデータをコピペして、ペー...
-
スプレッドシート、Excelでの数...
-
LOOKUP関数を使えばいいのでし...
-
Excel VBについての質問です。
-
【マクロ】 IFERROR関数をマク...
-
エクセル日付 文字列の関数がエ...
-
【マクロ】読取専用のファイル...
-
【マクロ】その時、その時で変...
-
時間によってファイル名が変わ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報