エクセル：値のある行だけをcsv保存したい
- エクセル（2003、2007）でcsvデータで保存をするマクロを作る際、「式」ではなく、「値」がある行だけ書き出したいと考えています。
- 具体的には、シート1に表があり、それを元にシート2にデータを転記する場合、シート2にはそれぞれ転記するための「式」が入ることになると思います。
- しかし、マクロでcsvとして吐き出す場合、すべての行に「式」が書き出されてしまいます。そこで、「値」が入っている行だけをcsvとして抜き出したいと思っています。
- ベストアンサー
Ｅｘｃｅｌ：値のある行だけをｃｓｖ保存したい
エクセル（2003、2007）でｃｓｖデータで保存をするマクロを作る際、 「式」ではなく、「値」がある行だけ書き出したいと考えております。 例えば図のようにｓｈｅｅｔ１に表があり、それを元にｓｈｅｅｔ２に データを転記する場合、ｓｈｅｅｔ２にはそれぞれ転記する為の「式」 が入る事になると思います。 【=IF(Sheet1!A10="","",Sheet1!A10)】など このままマクロでｃｓｖとして吐き出した場合、「式」が入っている行が 全て書き出されてしまうのですが、あくまで「値」が入っている行だけ ｃｓｖとして抜き出したいです。 ※なお、csv書きだし自体は以下のサイトを利用させて頂いております。 ttp://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_050.html お手数ですが何か手法があれば、ご教授頂けると助かります。 宜しくお願い致します。
- rg6ms
- お礼率31% (6/19)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ご提示のリンク先のコードを活かすなら Do Until GYO > GYOMAX If Cells(GYO, 1).Value <> "" Then （中略） Write #intFF, X(1), X(2), X(3), X(4), X(5) ' (3) End If ' 行を加算 GYO = GYO + 1 Loop としてやると、Ａ列が空白の行に関しては無視して処理を進めます。
関連するQ&A
- VBAで複数のCSVの読み込み
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_050.html こちらのサイトの「古くからあるステートメントの方法」を参考にしてCSVファイルを選択してエクセルのシート上にCSVの情報を貼れたのですが、 例えばグローバル変数を２つ作り、別プロシージャから２つの違うCSVファイルパスをそれぞれ受け取り、↑の方法で１つのシートに２つのCSV情報を貼るにはどのようにすればよいですか？ AファイルとBファイルがあったとしてシートの中身を A A A B B B のように横につなげるようにしたいです。
- 締切済み
- Visual Basic
- 複数CSVファイルからデータ抽出
CSVファイルのA列(行は問いません)の文字が転記シートのA列(行は問いません)と一致していたら、転記シートのA列が一致した行の空白に、左から順にCSVファイルのA列が一致した行のF列の値を書き込む。CSVファイルの1行A列を転記シートのF列の値を書き込んだ列の1行目に書き込む。 できれば、書き込んだ値はCSVファイルから消したいです。 コピペでやっていたのですが、ずれていてどうしようもなくなりました。 CSVファイル一つ当たり、4000行ほどあり、ファイルは200弱あります。 プログラムを組んでくださると、ありがたいのですが。 質問というよりお願いになってしまいますが、よろしくお願いします。
- 締切済み
- Excel（エクセル）
- Excel2003でcsvの指定行を読み込む
こんにちわ。 Excel2003のマクロでcsvファイルを読み込みたいと思っています。 csvの中身は下記通りです。 例） A B C D.......... 1 "氏名" 2 2 2 1 3....（整数の羅列） 3 1 3 2 3....（整数の羅列） 4 3 3 3 3....（整数の羅列） 5 2 1 2 3....（整数の羅列） このファイルを、エクセル上でボタンを押したら（マクロを実行したら）指定した行のみを読み込んで、それをエクセルのシートの指定したセルに代入するのは可能でしょうか？それぞれの行の整数の数は違います。
- ベストアンサー
- Visual Basic
- 照合した結果によって決めた値を転記するマクロ
シート１には Ａ～Ｆ列まで値があり、行数は都度相違し約15,000行くらい。 データは2行目から開始です。 シート２には Ａ～ＡＥ列まで値があり、行数は都度相違し約5,000～25,000行 あり同じくデータは２行目からです。 シート１の行ごとに A列,B列,C列の順で連結した値と シート２の行ごとに F列,G列,B列の順で連結した値を 照合させます。 その値が （１）シート１にもシート２にもある場合は シート２のＡＦ列に１と転記 （２）シート１には無いがシート２にはある場合は シート２のＡＦ列に２と転記 （３）シート１には有るがシート２には無い場合は シート２のＡＦ列に３と記入 シート２のデータのある行まで 作業を繰り返すマクロの記述を教えてください。 VLOOKUPを使用したマクロを作成しましたが 判定1,2,3の転記がうまく出来ないのと VLOOKUPが重すぎて処理が遅すぎるので 速く処理が出来るとうれしいです。 例 シート１ A2=XXXX B2=1234 C2=5678 シ－ト２ B2=1234 F2=XXXX G2=5678 シート１の値＝XXXX12345678 シート２の値＝XXXX12345678 照合する ↓（一致なので） シート２のセルＡＦ2に１と転記
- ベストアンサー
- オフィス系ソフト
- ExcelVBAでフォルダ内の全csvを開き一行に
ExcelVBAで、指定フォルダ内の全csvファイルのデータを開き 行列変換して一行毎に並べていきたいのです。 csvファイル数は、処理する時により、増減あります 似たような質問もあるようですが、いくつか見比べるとコマンドが異なってると、混乱してしまい、通しで回答いただけると、理解もできるかと質問させていただきます。 よろしくお願いいたします。 ■操作＆データ並べるファイル Sheet：menu こちらに、指定フォルダなど入力、マクロ実行ボタン配置 Sheet：data こちらに、1行づつ、csvファイルのデータを貼り付け ■csvデータ：1001.csv、1002.csv、・・・、1010.csv ■各csvデータ の並び A列 B列 C列 日付 04/01 時間 10:32 番号 1001 A1 OK 0.12 A2 OK 4.92 A3 NG 7.89 B1 0.05 B2 0.95 C1 101.2 C2 95.4 ・ ・ ーーーSheet：data の貼り付け後の並びーーーーーーーーーーーーーー 1001 04/01 10:32 0.12 4.92 7.89 0.05 0.95 101.2 95.4 ・ 1002 04/01 10:45 ・ ・ ・ ・ ・ ・ ・ ・ 1003 ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ 1010 ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー csvのデータは、3列で100行ほどありますが、 必要なデータの場所は、列が変わったりします
- ベストアンサー
- Excel（エクセル）
- 【Excel】行と列で値を検索したい
こんにちは Sheet1に表があります。 Sheet2のA列と1行に値を入力したときに、 Sheet1の交わる値を表示したいのですが、 Sheet2のB2、C2、B3、C3の式を教えて下さい。 Excel2013です。 宜しくお願いいたします。
- 締切済み
- Excel（エクセル）
- マクロ 値の転記 再度
マクロ 値の転記 再度 昨日はkyboさんに解答を頂き大変助かりました。 ありがとうございました。 教えて頂いたコードを別のマクロでも活用しよう思ったのですが どのように改変していけばいいのかまた悩んでいます。 度々で申し訳ありませんが、どなたか宜しくお願い致します。 やりたいこと 転記元のBに0以外の数字が入っている場合、転記先のA列に 同じ値を常に5回転記させたい。 "あ"を5回転記→1行あける→"う"を5回転記→(続く・・・) ★Sheet1 転記先（7行目から転記したい） Ａ ------------------- 7 あ 8 あ 9 あ 10 あ 11 あ -------------------- 12 空行 -------------------- 13 う 14 う 15 う 16 う 17 う -------------------- 18 空行 -------------------- 19 以下 5つの纏まりの枠が300行位まで続く ★Sheet2 転記元（5行目からデータがある） Ａ Ｂ -------------------- 5 あ 6 あ 7 あ計 100 -------------------- 8 空行 -------------------- 9 い 10 い 11 い 12 い計 0 -------------------- 13 空行 -------------------- 14 う 15 う 16 う 17 う計 500 -------------------- 18 空行 19 （以下、続く） Sub テスト() Dim i As Long '転記元のデータ開始行は5行目 For i = 5 To 300 '転記元のB列が0以外 If Worksheets("転記元").Cells(i, "B") <> 0 Then Worksheets("転記先").Cells((i - 1) * 5 + 1, "A").Resize(5) _ = Worksheets("転記元").Cells(i, "A") End If Next i End Sub
- ベストアンサー
- その他MS Office製品
- CSVファイルの行が突然消える
あるデータを抽出し、それをＣＳＶファイルで取り込み、１つ取り込む ごとにＣＳＶファイルが1行ずつ増えていきます。 適当な時期に、何行かたまった行を一気にAccessを用いてさらに取り込み ます。（取り込むのみ） あるとき、ＣＳＶファイルを開くと突然ＣＳＶファイルの行が減って いるのです。 何が起きているのでしょうか？ Accessに何かマクロとか組んであって突然消えるのでしょうか？ Accessを開く前と開いた後（取り込んだ後）で、特にＣＳＶファイル に変更はありません。 あるとき突然ＣＳＶファイルを開くと昨日まであった行が突然 消えてしまうのです。（いつ起こるのか予測できていません。） ＣＳＶファイルにはマクロが組んであるようには見えません。 何かわかればお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル：VBAで自動的にCSV形式で保存について
複数のシートからなるエクセルブックから、決まった一つのシートを CSV形式で保存するマクロを作成しております。 その際、CSV化するシートは他のシートの値を参照し、数値が""、 もしくは"0"の場合は、表示しないとする数式が1000行まであります。 これは、CSVで保存した際に、無用なデータを含めないようにと 考えたものですが、下記VBAを作りCSV化し保存したファイルは、確かに 数値がある行のみ表示しているものの、データ量が重くなってしまいます。 Application.DisplayAlerts = False Application.Dialogs(xlDialogSaveAs).Show arg1:=MyFile, arg2:=6 この作成されたCSVをあらためて、「名前を付けて保存」でCSVで保存し、 「～には、CSV(カンマ区切り)と互換性のない機能が含まれている可能性 があります。この形式で保存しますか？・・・」の所で、「はい」を選択 すると、データ量が大変少ない量で保存できます。 おそらく、マクロで作成したCSVは、その「互換性のない機能」が含まれて いるのであろうと思いますが、必要としているのは値のデータのみです。 この「互換性のない機能」を省いてCSVで保存する方法をどなたか教えて いただけないでしょうか？ 分かりにくい文章で申し訳ありませんが宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- 【Excel】 csvの作成時、空白セルにもカンマ
こんにちは A列のA10まで、に値が入ります。 B列は、B1=IF(A1="","",A1) として、B10までフィルしました。 A1からA5までに1、2、3、4、5と入力し、A6からA10は空白にします。 B1からB5までは、1、2、3、4、5が表示され、 B6からB10までは空白です。 このSheetを、csvで保存し、テキストで開きますと 1,1 2,2 3,3 4,4 5,5 , , , , , , となります。 この、6行から10行の「,」がないcsvを出力したいのですが、 元のSheetの式はどうしたらよいでしょうか。 Excel2007です。 宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
お礼
ありがとうございます！ 無事に書き出せました。 ご教授頂き、感謝致します。