- ベストアンサー
エクセルVBA セルの認識について・・・
エクセルVBAで、A1～A10まで文字列が入っているんですが、文字列の入っているところまでB1のデーターをコピーして貼り付けしたいのですが、何かいい構文はあるでしょうか？ A10は場合によってはA9になったりと変動します、それに付随してB1をコピーしたものも、B9までとなったりしたいのです。そう言った事は出来るでしょうか？ よろしくお願いいたします。
- nanny
- お礼率55% (72/129)
- その他(ソフトウェア)
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
Sub コピー() Range("B1").Copy Destination:=Range(Range("B1"), Range("A65535").End(xlUp).Offset(, 1)) End Sub などとしてみてはどうでしょう？
その他の回答 (1)
- potedora
- ベストアンサー率47% (66/140)
簡単ですが、以下のようなすればできます。 A,Bという文字列を使用したい場合はCellsのかわりに RANGEを使用してください。 Dim i As Integer With ActiveSheet i = 2 While .Cells(i, 1) <> "" .Cells(i, 2) = .Cells(1, 2) i = i + 1 Wend End With
お礼
ありがとうございます。 これを参考にまたがんばってみます。
関連するQ&A
- エクセルVBAでセル選択
エクセル2000でリストを作成し、ＶＢＡで編集しようとしています。 Ａ列に入力されているコードの先頭に「’」をつけて文字列とするための関数をＢ２のセルからＡ列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 Ａ列の最終セルを取得するＶＢＡは分かったのですが、その値をＢ列の選択範囲として使用する方法がわかりません。 エクセルＶＢＡは全くの初心者です。 どなたか教えてください！
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡでセル結合
いつもお世話になっています。 エクセル2003でＶＢＡを使って下記をしたいのでその、ＶＢＡ構文を教えて下さい。 特定の列のあるセルに文字が入っています。 （文字が入っている列は固定ですが、行番号はデータによって変わります。例えば、Ａデータの場合は「Ｊ３０」、Ｂデータの場合は、「Ｊ５５」だったりします。） この文字が入っているセルをＶＢＡで検索し、検索したセルを右隣のセルと結合します。（先ほどのＡデータの場合、Ｊ３０：Ｚ３０に結合します。） 更に、文字が入っているセルが２以上の複数の場合があります。（先ほどのＡデータの場合、「Ｊ３０」と「Ｊ４０」と「Ｊ４５」という感じです。文字が入っているセルの数はデータにより異なります。） 結合が終わり、このシートのデータがあるところだけに罫線を引きます。（このシートのデータというのは、前述の文字とそれ以外は、「数字」と「・」です。 ややこしいですが、よろしくお願いします。
- 締切済み
- オフィス系ソフト
- ＥＸＣＥＬ ＶＢＡ
はじめまして。ＥｘｃｅｌのＶＢＡについて質問させて頂きます。 - A-B-C １ 0 あ ２ 0 い ３ 1 う ４ 1 え ５ 1 お 上記のようなデータに対して、A列の値が１の場合、B列の値をC列へコピー して、B列をゼロにする。A列の値が０の場合は、そのまま。 （結果） - A-B-C １ 0 あ ２ 0 い ３ 1 0 う ４ 1 0 え ５ 1 0 お といったようにＶＢＡを作成したいのですが、なにぶん初心者なもので、 どのように記述すればよいのかわかりません。 よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- エクセル2003のVBAを教えて
エクセル2003のVBAを教えてください。 次の対象データで、(1)(2)(3)の作業が出来るエクセルVBAを教えて下さい。 (1)(2)(3)個々のVBAでお願いします。 ●対象データ：種類(A列)、文字(B列)、 データの行数：不特定なので、データのある最終行までとします。 ●教えていただきたい項目 (1)：種類だけを(C列)に取り出す。 (2)：種類の先頭に空白の行を3行入れて、追加の２行目の種類(A列)に文字(B列)を入れる。 (3)：種類が5行以上あるときは、5行ごとに空白行を追加する。 ●対象データ 種類(A列) 文字(B列) AA あああ BB いいい BB いい BB いいい CC うう CC うう DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ ●(1)のVBAの結果(このようになるVBAを教えてください。) (C列) AA BB CC DD ●(2)、(3)のVBAの結果(このようになるVBAを教えてください。) 種類(A列) 文字(B列) あああ AA あああ いいい BB いいい BB いいい BB いいい うう CC うう CC うう ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ
- ベストアンサー
- Visual Basic
- エクセル（ＶＢＡ）のブック間でのコピーペーストについて
こんにちは。VBA入門レベルのものですが、質問させてください。 ブックＡとブックＢを開いた状態にし、 ・ブックＡ⇒ＶＢＡを組む＆データ貼付け先 ・ブックＢ⇒データコピー元 ブックＢの特定セル（例：Ｄ１０）からブックＡの特定セル（例：Ｅ１２）にコピー⇒貼付 する方法を探しています。 なお、ブックＢは、ブック名とシート名が都度変わるので、「ブックＡではない方の開いているエクセルファイルからデータをコピーし、ブックＡに貼付ける」の構文にしたいです。 また、コピペの他に数式（イコール）で飛ぶ方式でもかまいません。 この内容でのＶＢＡの記述方法が分かる方、どなたか教えて頂けますでしょうか。 すみませんがよろしくお願いいたします。 ※エクセル2003です。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA、列のコピーについて
VBAについて助けてほしいことがございます！ VBA初心者なので、ひょっとしたらレベルの低い質問かもしれず申し訳ないのですが、VBAに詳しい方がいらっしゃれば教えて欲しいことがあります。 下記の前提を含めた作業内容をVBAのコードとしてまとめる事は出来るのでしょうか？ 1列目（A1,B1,C1,D1…）にキー項目（名前、番号、地域、住所、ID…）、2列目以降にキー項目のデータが入力されています。 【作業内容】 「ID」の項目の列には、「番号」の列の文字をコピーして貼りつける（キー項目は上書きせずにIDのまま）。 【前提】 ・キー項目の列は固定されていない（B列が番号の時もあれば、住所の時もある）ので、文字を基準にコピー作業をする ・「キー項目が空欄にぶつかったら、検索を終了」という事をループに入れる（キー項目数は変動するため） ・2列目以降の全てのデータをに張り付ける」という事をコードに入れる（2列目以降のデータの列数も変動する且つ途中に空欄も含むため）
- 締切済み
- Visual Basic
- エクセルVBAでの条件処理
エクセルのVBAについてですが、 指定された列に情報が何もないときは、 次の処理。 指定列に情報が一つだけの場合は そのひとつだけの情報をコピーして、 別シートへ貼り付け。 指定列に情報が複数ある時は、 すべてを選択コピーして、 上記と同様のシートへ付け足して貼り付け。 …というような処理を行いたいのですが、 構文がわかりません。 これが出来ないおかげで、情報が何もないときに、 シート全体をコピーして貼り付けるため、 エラーが発生します。
- ベストアンサー
- オフィス系ソフト
- 教えて下さい。VBAマクロで困ってます。
VBAマクロ初心者です。実は、次のようなコードをどのように書けばよいのか教えて下さい。 例えば、 Aは、デスクトップ上のエクセルファイルの"Sheet1"のA1：B4のA列は数値、B列は文字列。 Aをデスクトップ上の別のフォルダーにあるエクセルファイルの"Sheet1"のA1：B4にデータをコピーをするのですが・・・。まったくわかりません。または、説明が下手でやりたい事が伝わらないかもしれませんが、よろしくお願いいたします。
- 締切済み
- その他（プログラミング・開発）
- 可視化セルのみのコピー
エクセルにて Ａ、Ｂ、Ｃ列にデータがあり、Ｂ列を非表示にしている場合に、 Ａ～Ｃ列をコピーして貼り付けで、Ｂ列はコピペ出来ないようにしたいのですが、方法を教えてください。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます！！ ばっちりでした。 これを元に改良を加えて、やってみます。ありがとうございました。