- ベストアンサー
エクセルVBAで
merlionXXの回答
- merlionXX
- ベストアンサー率48% (1930/4007)
No3です。 勘違いしました。「終わり」があるのはA列でしたね。D列だと思ってました。修正します。 Sub TEST2() Dim r As Long Range("D1").Copy r = 1 Do r = r + 1 If Cells(r, 1).Value = "終わり" Then Exit Do ActiveSheet.Paste Cells(r, 4) Loop Application.CutCopyMode = False End Sub
関連するQ&A
- Excel. Vba
Vbaでセルの値だけコピーしたいのですが可能でしょうか？ 数式を埋め込んだセルに、数値が入力されたセルを形式を値だけ貼り付けにして貼り付けても数式が消えてしまって値だけ入ってます。 数式は消さず、値だけコピーというのはvbaで実現可能でしょうか？
- 締切済み
- Visual Basic
- Excel VBA
VBAでセルF1に数式を入れようと次のようにしました。 Range("F1").Formula = "=if(D4=" & """"",""""" & ",JIS(PHONETIC(D4)))" 実行したところ、F1セルは「#NAME?」と表示されてしまいます。 F1セルの数式バーには、きちんと、「=if(D4="","",JIS(PHONETIC(D4)))」となっています。 この数式を数式バー内で一度選択してリターンキーで決定するときちんとD4セルのふりがなが入ります。 これまでにも、数式を入れたことはあったのですが、こんなことにはなりませんでした。 今回は、なぜ正しい関数式が入ってもきちんと表示されないのか分かりません。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセルVBA：選択・貼付け（繰り返し？）
３種類の数式を、条件により選択しながら、不特定の回数（行数）に貼り付けたいのですが、どのようなコードが考えられますでしょうか？よろしくお願いします。 ○Sheet1 数式保存セル 数式(1)：AZ8 数式(2)：BA8 数式(3)：BB8 数式選択条件 Ｄ列の値が (1)であれば数式(1)を、(2)であれば数式(2)を、(3)であれば数式(3)を 数式適用範囲 I8 ～ AW107 ※３種類の数式はそれぞれ、I8 で作成し、保存セルにコピーして用意したもの 例 ／ D8 が(1)であれば、AZ8 をコピーして、I8 ～ AW8 に計算結果のみ貼付けたい（数式のみ→値のみ） D9 が(1)であれば、AZ8 をコピーして、I9 ～ AW9 に 〃 D10 が(3)であれば、BB8 をコピーして、I10 ～ AW10 に 〃 D11 が(2)であれば、BA8 をコピーして、I11 ～ AW11 に 〃 ・・・ ※何行使用するかは毎回変わる ※他シートを用意したくない ※ AY列は空いている（行数をカウントし変数とする、IF関数を用い条件に応じて数式保存セル位置を文字列で表示し変数とする、などを組合わせてできないかと思いましたが、思い浮かびませんでした。）
- ベストアンサー
- オフィス系ソフト
- エクセルでのマクロについての質問です
毎日行数の違うデータの隣に数式を入力してフィルでコピーしていますが簡易のマクロを組んでみました。ですが行数が変わるためマクロ登録した時の行数までしか数式がコピーされません。 画面１のようにＣ１、Ｄ１セルの数式をフィルでコピーしたマクロを登録しました。画面２のようにデータが多くなるとＣ５、Ｄ５までしかコピーされません。最初はＣ１、Ｄ１だけに数式を入力してマクロ実行後、フィルでコピーしていましたが面倒な為、現在は行数を多く設定していますが無駄に数式が入るためにデーターが重くなります。マクロでＢ列の最下セルを検索しその列までＣ，Ｄセルをコピーというなマクロが出来るなら教えて頂きたいです。ＶＢＡの知識を必要とすると思いますがよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルの入力について
エクセル2000でセルに数式を入力しても、計算結果が反映されません。ほかの、同じ数式を入力したセルでは、ちゃんと表示されますが、そのセルに限って数式を入れても回答が"0"となってしまいます。書式を確認してみると、「通貨」になっており、「数値」に直しても（このとき表示されるサンプルも0のままです。）又「通貨」に戻ってしまいます。ほかのセルから数式をコピーしても、書式をコピーしてもだめでした。どうしたら正しく数式が反映されるのでしょうか？
- 締切済み
- オフィス系ソフト
- Excel VBAについて
Excelでセルに入力した文字等を数式バーに表示させないようにするのは、 どのようにしたらよいのでしょうか？ 数式バーを非表示にする以外の方法を教えて下さい。
- ベストアンサー
- Visual Basic
- ＶＢＡにてデータを振り分けたい。
２つのシート（sheet1、sheet2）があり、sheet2に振分けるデータ（下表）を作成しておきます。 （列） Ａ Ｂ Ｃ Ｄ （行） １ 山 川 地 空 ２ ○ △ × □ ３ ア イ ウ エ (1)ユーザーフォームを作成し、その中にコンボボックスを作成して山を入力する。 山は、セルＡ１へ、川は、セルＢ２へ、地は、セルＣ３へ、空は、セルＤ１、それぞれ 決められたセルにコピーされる（すべてsheet1へコピー）。 (2)にコンボボックスにて○を入力する。○はセルＡ１へ、△は、セルＢ２へ、×は、 セルＣ３へ、□は、セルＤ１へ、それぞれ決められたセルにコピーされる（すべて sheet1へコピー）。 ちなみに(1)と(2)のコピーされるセルの位置は同じ場所です。 というようなものをExcelのＶＢＡにて作成したいのですが、ＶＢＡは、まだよくわかりません。 出来れば、sheet1のセルに数式などを入力したくはないのですが．．．。 どうか皆様のご指導を宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルの関数について。
エクセルの関数。 Sheet1の作業列1のA2セルに =IF(COUNTA(Sheet2!2:2)=0,"",IF(Sheet2!A2="",A1,Sheet2!A2)) →数式1とする 作業列2のB2セルに =IF(A2=$D$2,ROW(),"") →数式2とする という数式を入れA2・B2セルを範囲指定 → B2セルのフィルハンドルで下へコピーしておきます。 （Sheet2の行数以上コピーしておく） そしてE2セルに =IF(COUNT($B:$B)<ROW(A1),"",INDEX(Sheet2!B:B,SMALL($B:$B,ROW(A1)))&"") →数式3とする という数式を入れオートフィルで列方向・行方向にコピーする。 教えて頂きたいことは、数式1、数式2、数式3が何を意味しているのか。 と、この数式を使って、表を作成したのですが、ある特定の数字（コード、Ｄ2セルに入力）を入力しても反応してくれない。 （Ｅ2～Ｈ2まで、空白セルの状態になります。） （sheet2は約1200行あります。） 教えて頂けないでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセル２０００ ＶＢＡ データの削除
セルのデータを漏れなく消去するマクロの記述を教えて下さい。 なお、入力セルと数式が入っている、非入力セルが混ざり合っていますので、数式は残すように記述する方法もあればどなたかお教え下さい。
- ベストアンサー
- オフィス系ソフト
- エクセル2000 VBA
エクセル2000です。 シートをコピーして他のファイルにコピー＆ペーストしようとしているのですが、シートに入っている数式までコピーされてしまうと元ファイルを参照しに行くので困っています。 次の方法として、形式を選んで貼り付けようとしてみました。 １） 値 ２） 書式 ３） 入力規則 の順序で貼り付けていくと、手動では出来るのですが、それをマクロで記録してから実行すると、一番最後の入力規則の部分で停止してしまいます。 数式以外のものはコピーしたいのです。 どなたかご存知でしたらよろしくお願いします。
- ベストアンサー
- オフィス系ソフト