ExcelVBAに関するマクロについて教えてください。
A|B|C|D|E|○
-+-+-+-+-+--
F|G|H|I|J|×
-+-+-+-+-+--
K|L|M|N|O|○
というExcelがあったときに
1行6列目のように○があれば、
A,B,C,D,Eといったようにコンマ区切りで
抜き出したいですが、マクロの組みかたが
分かりません。
×のときは、無視し、3行目は○なので
改行した上で再び一行抜きたいです。
親切な方教えてください。
ヒントだけでもかまいません。
よろしくお願いします。
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
>さらに追加で、2列目の値はjoinさせない(出力させない)としたら
>どのようにすれば良いでしょうか?
こんな方法も
v = Cells(i, 2).Resize(, 4).Value
v(1, 1) = Cells(i, 1).Value
MsgBox Join(Application.Index(v, 1, 0), ",")
No.4
- 回答日時:
>さらに追加で、2列目の値はjoinさせない(出力させない)としたら
>どのようにすれば良いでしょうか?
v = Cells(i, 3).Resize(, 3).Value
MsgBox Cells(i, 1).Value & "," & Join(Application.Index(v, 1, 0), ",")
No.3
- 回答日時:
こんにちは、参考に
Sub Test()
Dim i As Long
Dim v As Variant
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, "F").Value = "○" Then
v = Cells(i, 1).Resize(, 5).Value
MsgBox Join(Application.Index(v, 1, 0), ",")
End If
Next
End Sub
この回答への補足
ありがとうございます!参考になりました!
さらに追加で、2列目の値はjoinさせない(出力させない)としたら、どのようにすれば良いでしょうか?
v = Cells(i,1).Value & Cells(i,3).Resize(,3),value
とすればいけるのかなと思ったのですが、
実行時エラー13と出てきてうまくいきませんでした。
No.2
- 回答日時:
よく分かりません
出力先、1、3、5行目が○の時、1、2、3行に出力するのか、1、3、5行に出力するのか
Sub test()
Dim i As Integer, x As Long
Dim strText As String
For i = 1 To Range("f65536").End(xlUp).Row
If Cells(i, 6).Value = "○" Then
For x = 0 To 4
strText = IIf(x = 0, Cells(i, 1).Value, strText & "," & Cells(i, 1).Offset(, x).Value)
Next x
MsgBox strText
End If
Next i
End Sub
後はご自由に
以上、参考まで
No.1
- 回答日時:
出力先はどこなのでしょう?
(1)A-F列を選択し、6列目で降順に並べ替え。これで「○」の行が上に集まる。
(2)G列(7列目)の「○」のある行に以下の式をフィル。
=CONCATENATE(A1,",",B1,",",C1,",",D1,",",E1)
(3)もしファイルに保存するなら、G列をコピーしてテキストファイルに貼り付け。
という手作業で十分に思いますが、必要ならこれをマクロ記録して修正してみては。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelについて教えてください。 帳票データがあります。 アクセスに取り込むため、 データ形式にし 1 2022/06/08 19:59
- Excel(エクセル) Excel教えてください。 下記のことが出来るのは、マクロですか?条件付き書式でしょうか、、?知恵を 5 2022/11/12 09:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Excel(エクセル) Excelについて 1 2023/03/06 10:26
- Excel(エクセル) 添付写真上のExcelシートのように時間と曜日ごとに担当者が振り分けられているシートがあります。 例 1 2023/03/08 13:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
プログラムについての質問です...
-
OBS配信すると、マイクが途切れ...
-
4Kの外部モニターに出力すると...
-
printfとputcharの違いは
-
MMDでavi出力が出来ない
-
コンセントの電力は入力と出力...
-
ACCESS クエリ→フォーム...
-
VBAのExecメソッドで画面を非表...
-
cout と cerrの違い
-
テキストファイルから特定の文...
-
Excel Slope関数 繰返し処理...
-
C# 標準出力のencodingをutf8に...
-
プログラミングの問題です。至...
-
無線とかアンテナに関しの質問...
-
VBAでSUMIF関数を繰り返す
-
【VBA】PDFを2in1で出力したいです
-
COBOLのMOVEで桁数が異なる場合
-
センサーのタンパー出力について
-
最近の画像生成AIについて。 長...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
コンセントの電力は入力と出力...
-
MMDでavi出力が出来ない
-
OBS配信すると、マイクが途切れ...
-
VBAでテキスト出力時のスペース...
-
cout と cerrの違い
-
COBOLのMOVEで桁数が異なる場合
-
ACCESS クエリ→フォーム...
-
アクセスでエクセルに出力する...
-
VBAのExecメソッドで画面を非表...
-
テキストファイルから特定の文...
-
Windows11対応の3入力1出力 USB...
-
VBAで有効数字の設定
-
スマホのバッテリー消費につい...
-
Excel VBAで値を変えながら、pd...
-
NTTのホームゲートウェイとOCN...
-
定格冷房能力(出力)とは 定格...
-
プログラムについての質問です...
-
PS5をMacBookProに出力したいの...
おすすめ情報