![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
COBOLのMOVEで桁数が異なる場合
-
プログラムについての質問です...
-
アクセスでエクセルに出力する...
-
COBOLで可変長ファイルの出力に...
-
コンセントの電力は入力と出力...
-
VBAで出力したCSVファイルの先...
-
ActiveReportsで縦書きの帳票
-
Windows Formアプリからコンソ...
-
PowerShellのスクリプトでイベ...
-
vba 環境依存文字によるDocuwor...
-
cout と cerrの違い
-
LaTeX:tableofcontentsによる目...
-
VBAで有効数字の設定
-
配列からポインタを使って長さ...
-
C# 標準出力のencodingをutf8に...
-
VBAのExecメソッドで画面を非表...
-
ACCESS フォームで選択したレコ...
-
printfの書式%.*s
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
MMDでavi出力が出来ない
-
プログラムについての質問です...
-
COBOLのMOVEで桁数が異なる場合
-
cout と cerrの違い
-
コンセントの電力は入力と出力...
-
スマホのバッテリー消費につい...
-
アクセスでエクセルに出力する...
-
PC電源は、出力DC12VとDC5Ⅴで...
-
Windows Formアプリからコンソ...
-
ACCESS クエリ→フォーム...
-
VBAのExecメソッドで画面を非表...
-
printfの書式%.*s
-
無線とかアンテナに関しの質問...
-
ACCESSからExcelへエクスポート...
-
【ExcelVBA】最終行の取得で困...
-
Accessのテーブルからcsv出力す...
-
CRC16計算について
-
Excel VBAで値を変えながら、pd...
おすすめ情報