• 締切済み

AW,AX列の特定行にのみデータがあります。残りは空白

qualheartの回答

  • qualheart
  • ベストアンサー率41% (1451/3486)
回答No.1

EntRow = 40 For n = 2 To EntRow If Cells(n, 49).Value = "" Then Cells(n, 49).Value = Cells(n - 1, 49) Cells(n, 50).Value = Cells(n - 1, 50) End If Next で、どうでしょう？ EntRowには処理を繰り返す行の数を指定してください。

kikakubute
質問者

補足

これは、AWの100　と書いてあるところで実行すれば宜しいのでしょうか？ 上の処理を貼り付けて実行しても何もおきません。 ＞EntRowには処理を繰り返す行の数を指定してください ここを私が理解していないのが問題でしょうか EntRowの後ろに繰り返したい回数を記入すればいいのでしょうか？

この回答がついた質問に戻る
回答 全件
説明不足でしたｗ　(;´▽｀A`` 記載のVBAは、マクロとして…
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • ExcelVBA特定の列にデータがある行を消したい

    Excel2003を使っているのですが、VBAを使って特定の列（たとえば、I列）にデータがある（空白でない）行をすべて消したいのですが、どのようなマクロを書けばできるでしょうか？

  • 10行間に空白3行追加したいです

    それぞれ２行の空白を含む３０行の紙データーをOCRしエクセル保存しました。 取り出してみたら各１行になっていました。 コピー貼り付けの都合上 １０行の間に２行ずつ追加して 30行にしたいです。 手動で複数行選択して行追加していますが、何回か繰り返さないと目的を達せません。残りが大量にあり、おたすけください。 １０行のデータは　B4:J14までですが 列無視で 行だけ追加で構いません。

  • 途中に空白行や列があるデータ範囲

    エクセル2003です。 セルA1からセルC50までデータがあり 10行目と20行目は全て空白、 セルC39が空白で セルE55、F57、G55にはデータがある の状態で以下の構文ですと Sub 範囲コピー1() Range("B3").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy End Sub 途中に空白行や列、空白セルがあり さらに離れた所E55、F57、G55に データが有るのにもかかわらず セルB3からセルG57までを選択してクリップボードにコピー してくれます。 ですが問題がありまして 上記のシートにて A45～F50を選択してDeleteをし、 さらにセルのF55、G55もDeleteして データ範囲を セルA1～E44とセルE55のみにしてからから 上記構文を実行すると セルB3からセルE55を選択してクリップボードにコピー してほしいのに、 データ削除前と同様の セルB3からセルG57を選択してクリップボードにコピー されてしまいます。 これはエクセルの手操作 Ctrl＋Shift＋End でも同じようになりますので当然の結果(※１）と思っています。 （※１→なにか別な方法はありますか？） 上記の使用方法はあまりないのですが 構文を使う時点での最大行数や最大列数は常に不明で 途中空白が有る場合無い場合、 上記のようにシート上でデータ操作をした直後であっても データ削除部分は加味しデータのある範囲だけの取得の対応 が可能な構文を1種類で作成したいのですが どういう方法があるでしょうか？ ちなみに Sub 範囲コピー2() Range("B3").Select Range(Cells(Rows.Count, 1).End(xlUp).Row).Select Range(Cells(1, Columns.Count).End(xlToLeft).Column).Select Selection.Copy End Sub これですと 実行時エラー1004 Rangeメソッドは失敗しましたGlobalオブジェクト となります。 ヘルプをクリックしても何も表示されません。 WEB検索するとこのエラーの質問は結構多いのですが 事例が相違する為よく理解できません。 もしかしてRangeなのに 取得できる値が一つの番号でセルを指定できないからでしょうか？ エラーになる構文だと最初のRangeは行番号、次のRangeは列番号、 ですので。 で、 Sub 範囲コピー3() Dim 最終行 Dim 最終列 Range("B3").Select 最終行 = Cells(Rows.Count, 1).End(xlUp).Row 最終列 = Cells(1, Columns.Count).End(xlToLeft).Column Cells(最終行, 最終列).Select Selection.Copy End Sub これならエラーにはなりませんが 事例だとセルC50だけが単独選択されて範囲として 取得をしてくれません。 また 1, Columns.Count ですので最終列の列番号の取得が1行目の最終列から左に検索し データのある所の列番号を返すので 3→C列 となってしまい D,E,F列を見つけてくれません。 かといって 55, Columns.Count では データが55行まで無い場合には対応が出来ませんのでこれも駄目です。 途中に空白が無い場合や離れたセルが無い場合でも使いたいので UsedRangeは使用したくない（よくわかってない事もあって）です。 よろしくお願いします。

  • エクセルで1行目が空白の場合、列を削除したい

    こんにちは！質問をお願いします。 エクセルで表を作成していますが、1行目が空白のセルがある場合に、その列を削除したいのですが、ＶＢＡでどのようなコードにすればよいでしょうか？ ※上記のＤ列を削除し左詰めにしたい。（空白セルはAからBBまでの間で、特定の位置以降で発生します。） ※ちなみに1行目には、＝N　というようにほかのセルを参照し、文字の入力があれば表示するようにしています。 初心者につき、うまく説明できていないかもしれませんが、よろしくお願いいたします。

  • 質問：特定文字列から空白行までの抽出

    質問：特定文字列から空白行までの抽出 お世話になります、ネットで公開されているVBAを修正して何とかなっているVBA初級者です。 毎月excelで出力されたファイルを元に関数で整形したと思っていますが、”北棟２”の開始 するセル位置は解っているのでそれを基準に利用するのは簡単ですが、7777村上まで（空 白があるまで）を抜き出して"sheet_work"もしくは"北棟２"とういうsheetのB8セルに貼り 付けたいと考えています。 北棟２だけではなく、空白に挟まれた行は毎月変動するために関数でのセル指定が役に立ちま せん。この場合、北棟２、南棟１、西棟２、東棟１、東棟３といた文字列の次の行のA,B,C列 から空白が発生する行までを整形しやすいsheetか文字列通りのsheet名のB8セルに貼り付ける 方法が御座いましたらご教授お願いいたします。関数だけで力業で可能でしたらそちらもお教 えお願いします。 以下が出力されますが、空白から空白までは一定では無く、増減します。 小計の行は不要です。 　　　　　Ａ　　　Ｂ　　Ｃ 5　　 xxxxxx名　　　日付　 6　　 7　　 　　　 北棟２ 8　　 1111 鈴木　 5 9　　 2222 武田　 5 10　　 11200 山田　 5 11　　 4444 高橋　 4 12　　 5555 佐藤　 5 13　　 6666 小林　 4 14　　 7777 村上　 0 15　　　 16　　 　　　 小計　 28 17　　 18　　 　　　 南棟１ 19　　 1001 中村　 4 20　　 1002 伊藤　 5 21　　 1003 吉田　 4 22　　 20110 佐々木　 5 23　　 1005 木村 　3 24　　 1006 渡辺 　0 25　　 1007 田中 　4 26　　 27　　 　　　 小計　 25 28　　 29　　 　　　 西棟２ 30　　 10020 森 　2 31　　 2010 岡田 　1 32　　 2033 池田 　0 33　　 2058 井上 　5 34　　 35　　 　　　 小計 　8 36　　 37　　 　　　 東棟１ 38　　 7854 石田 　4 45　　 　　　 東棟３ 46　　 4471 石岡 　2

  • 特定の列、セル内の数字を認識して行をコピー、挿入

    エクセルのマクロでこんなことは可能でしょうか? （１）あるセルに(数字)が入ったとき　　　 (そのセルの列は固定） （２）自動的にそのセルの「行」全体をコピーして 　　　その数字が5なら4行、1なら0行 （入力値より-1行） （３）ひとつ下の行に「コピーしたセルの挿入」で行の追加をする （４）最終行はコピーしない（合計の数字が入ってしまう為） 例 列 A.B.C.D.E 空白.文字列.文字列.1.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.3.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.8.文字列←合計の為コピーしない 　　　　　　　↓ 空白.文字列.文字列.1.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.3.文字列 空白.文字列.文字列.3.文字列 空白.文字列.文字列.3.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.2.文字列 空白.文字列.文字列.8.文字列←合計の為、そのまま Ｃの列に3とある場合下に 【3行-(1行) = 2行】を追加コピー 空白.文字列.文字列.3.文字列　の部分。 できれば、コマンドボタンで処理したいと考えております。 お詳しい方、ご教授宜しくお願い致します。

  • 空白セルをデータと認識してしまいます

    Excel2003を使用しています。 「マクロの記録」を使って、あるリストを自動作成 しようとしているのですが、うまくいきません。 Ａ，Ｂ２つの列に分かれたデータを連結させるため、 Ｃ列に「CONCATENATE」関数を入れて適当な行まで コピーします。（それ以上はデータが入らないだろうと思われる１００行目ぐらいまで） その後Ｃ列をコピーし、「値貼付け」をして 関数を値に変えます。 そうすると、たとえば実際には２０行目までデータが 入っていたとすると、２１行目～１００行目までは 空白になりますよね？ でも、どうもその空白行もデータとみなされている ようなんです…。 Range("C2").End(xlDown).Row で下端セルを探そうとすると、１００行目に なってしまいますし、「ジャンプ」で空白セルを 探しても、同じ結果になります。 空白セルを選んで一度「Delete」を押すと 正しく「空白」と認識するようなのですが…。 「実際にデータの入っているセルとそうでないセル」 を自動で判別させたいので、 簡単に「何も入っていないセルを”空白”と正しく 認識させる方法」はありませんでしょうか？

  • テキストで特定の文字列を含む行を削除

    テキストエディタで特定文字列を含む行と空白の行を削除したいです。 このようなことができるフリーのソフトがあったら教えてください。 テキストデータは数メガになりますのでメモ帳のような簡単なエディタでは開けません。 また、エクセルでも最大行を超えるため読み込めません。

  • EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい

    EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。

  • EXCEｌで特定の文字列の行をコピー

    下記のようなシートがあります。 列A～K 行1～80程度 列は変わることがありません。 行はデータ量によって40～80くらいまで変動します。 この中の特定の行をコピーして他のシートにペーストしたいのです。 コピーしたい行のK列は430という数字が入ります。 K列には430以外の数字も入ることがあります。 また、コピーしたい行の範囲は「開始」という文字列から「小計」 と言う文字列の間です。(小計の後の行にも430という数字が出てきます） マクロを使えば出来ると言うことは聞いたのですが、ヘルプを見ても よくわかりません。 わかる方いましたら是非ご教授下さい。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する