• ベストアンサー

Excelのセルをコピー

freedniaの回答

  • freednia
  • ベストアンサー率25% (84/324)
回答No.1

質問文がよくわかりません。 特定の列に数字が入っている行をコピペするんですか? そこは数字が入っていない場合は空欄ですか? そこまでの5セルというのはその行も含めて上5行ですか? 数字を見つけるたびに新規ファイルを開いて貼り付けるんですか? そうすると数字がある行の数だけファイルが出来ますが。 ちなみに質問者様の考えたコードを不完全でも掲載してくださればアドバイスしやすいです。

tomokoji
質問者

補足

説明不足で申し訳ありません。 まずVBから既存のExcelファイルを呼び出します。 そのExcelファイルとは名簿ファイルで、セル(1,0)から(1,4)までの5セル分に一人分の情報が入っています。 セル(1,0)から番号、(1,1)名字、(1,2)名前、(1,3)フリガナ、(1,4)出席となっています。 最大セルは(65,20)です。 (1,4)の出席のセルには、出席者のみに数字が入っていて全員入っているわけではありません。 この(1,4)の出席セルに数字が入っていたら、そこまでの (1,0)番号、(1,1)名字、(1,2)名前、(1,3)フリガナ、(1,4)出席を(一人分の情報)をコピーし、 別の新しいExcelシートに一行ずつ貼り付けていき、 最後に出来あがったものを表示させたいのです。 下記を実行するとエラー表示はないのですが 何の反応もありません・・・ Private Sub Command1_Click() xlFileName = strFileName Debug.Print strFileName, xlFileName Open xlFileName For Input As #1 n = 1 While n = 65 Line Input #1, a i = 0 Do Until i = 20 If Cells(n, 4 + i) = 0 <= 9 Then Cells(n, i)(n, i + 1)(n, i + 2)(n, i + 3).Copy Set xlApp = CreateObject("Excel.Application") ActiveSheet.Paste i = i + 5 End If n = n + 1 Loop Wend Close #1 End Sub 長々とすみません、よろしくお願いします。

関連するQ&A

  • エクセルのセルのコピー

    VB6からエクセルを立ち上げて、 有る特定の範囲のセルをコピーすることは出来ますでしょうか? よろしくお願いします。

  • メモ帳の文章をExcelの1個のセルにコピーする方法

    メモ帳の文章をExcelの1個のセルにコピーする方法 メモ帳で数行にわたって、行替えして書かれた文章を Excelの1個のセルにコピーしたいのですが、 普通にコピーペーストすると行ごとに別のセルに分けられてしまいます。 行替えや、一行あけなどをそのままで1個のセルにコピーすることはできますか?

  • エクセルで結合したセル同士のコピー、貼り付けを教えてください。

    エクセルで4列を結合したもの(1つのセルは1行ですが、それが5列、5行くらいの表になっています)にある数字を別のファイルの同じような表にコピー、貼り付けをしたいのですが、できません。 コピー元には計算式の答えが出てきているので、その値だけ貼り付けようとすると、「この操作には、同じサイズの結合セルが必要です」と出てしまうのです。 表は列幅、行の高さともに全く同じなので、「同じサイズ」という意味もわかりません。 どうすれば良いのか教えてください。 ※ちなみにコピー元のファイル自体をコピーして、そのコピー元からコピー先のファイルの表に値だけ貼り付ける作業は普通にできました。

  • (UWSC) エクセルのセルをコピーするには?

    UWSCで、エクセルにあるセルの中身をコピーしたいと 考えています。 getstrを使って、 a = GETSTR(GETID("Microsoft Excel","XLMAIN"),p)  (pは適当な数字) としましたがうまくいかないみたいです。 例えば、i行j列のセルにある文字をコピーするには、 どのようにすればいいのでしょうか? KBD(VK_CTRL,DOWN,32) KBD(VK_C,CLICK,31) KBD(VK_CTRL,UP,40) でもかまいません。

  • Excel でコピーしたセルの挿入が出来ません

    WIN 10 ですExcel でコピーした行のセルの挿入が出来ません 長年使っていて初めてのトラブルです1ページ分をコピーをして上の行に挿入しているのですが コピー(C)>でコピーをしてから>次にコピーしたセルの挿入(E)を選びたいのですが出て来ません 1行でも挿入が出て来ないので出来ません 隣のシートの場合はは挿入(E)が出て来て挿入できます よってソフトの異常ではなくこのシートに何か異常隠れた変なデーターが入っているのでしょうか 対策が有りましたらよろしくお願いいたします

  • エクセルで数字を認識して行をコピーして挿入するマクロ

    以前ご質問がありましたが少し違います。 エクセルのマクロでこんなことは可能でしょうか? (1)ある「不特定のセル」に(数字)が入ったとき    (そのセルの列は固定) (2)自動的にそのセルの「行」全体をコピーして    その数字が5なら5行、1なら1行 (3)ひとつ下の行に「コピーしたセルの挿入」で行の追   加をする 例 列 A.B.C.D.E a.b.c.d.2 "a.b.c.d.2" "a.b.c.d.2" a.b.c.d.3 Eの列に2とある場合下に2行追加コピー "a.b.c.d.2"の部分。 不特定が難しい場合は E列とか列を決めていただいてもよろしいです。 あとでVBをこちらで変更いたします。 無理を言いますが可能であれば お詳しい方、ご教授宜しくお願い致します。

  • 複数のEXCELファイルの特定セルを別ファイルへコピーする

    EXCELで作った見積書のセル内容を自動的に集めて、見積り一覧表を作りたいなと考えています。 見積書は1見積り1ファイル(シートは複数ありますが1枚目のシートが対象)になっていて、 各ファイルの1枚目のシートの特定セル内容(日付、相手先、件名、金額など)を 見積り一覧表として作成したEXCELシートへ順次コピーしたく思います。 動作イメージは 1.見積り一覧表を開いてボタンを押す等してマクロを起動。 2.同一フォルダー内の自分を除く全EXCELファイルを順次開きセル内容を一覧表へコピー。 3.全てのEXCELファイルを処理したら終了・・・。 発展系として、 ・日付条件で対象EXCELファイルを絞り込む。 ・特定セルに値が入っていなかったら(関係ないEXCELファイル)スキップ。 あとは一覧表が出来た後のソートくらいでしょうか。 まずは基本的な「自動的に複数EXCELを開いて特定セル内容をコピーする」のヒントがほしく思います。 なお、自動処理対象としたいEXCEL見積りファイルは約500本ほどです。 関連情報等ご存知でしたらお教えください。 よろしくお願いいたします。

  • セルのコピーが遅い

    パソコンに詳しくなくてすみません。エクセルファイルを開いてセルをコピーすると、非常に時間が掛かるのです。 マクロは使ってません。シートの数は2シートだけです。 1行20セル(内 計算式が 入っているのは 5セル)を次の行にコピーするのに 約40秒掛かります。 このシートの行数は200行にもありません。他のエクセルファイルを2-3試してみましたが他のファイルは素早くコピーできます。 自動計算はしていましたが(たいていの人は自動計算にしていると思いますが)手計算に変更しましたが状況は変わりません。 「戻る」の矢印をクリックすると約7秒掛かってコピーの前の状態に戻ります。 ウィルスバスター2007のチェックでは、ウィルスは無いです。 パソコンはwin2000 intel celeron 2.4GHz メモリ 770MBです。どのような原因が考えられるでしょうか。

  • EXCELで複数行を自動コピー&挿入

    エクセルで、100行、AからZまで数字やテキストが入力されいるシートがあります。 この100行のデータの1行につき、その下に5行をコピー挿入したいのです。つまり、1行目のデータと2行目のデータの間に1行目データ5行分自動挿入させる。さらにこの時、1行目のAからZまでのセルで、特定のセル(たとえば、BとTのコラム)のみ、コピーをしない、という設定をしたいのです。 よろしくお願いいたします。

  • エクセル セルのコピーができない。

    エクセルでセルをコピー&貼付けがうまくできなくなりました。 セルをコピーしてもテキストしか認識されずに、貼り付けるとセルの書式設定等は全くついてきません。 また、行や列毎コピーして挿入することもできなくなりました。 形式を選択して貼り付けを選択すると、Unicodeテキストかテキストの2つから選ぶ画面しか出てこず、 通常の値、数式、書式設定等を選ぶ画面も出てきません。 とくに何かエクセルの設定を変えた覚えはないので、なぜこうなったのかわかりません。 どうしたら、通常のセルのコピーができるようになりますでしょうか。