• 締切済み

特定セルから29右までを範囲選択→切り取り→

特定セルから２９右までを範囲選択→切り取り→50個右に移動して貼り付け 毎回A列が先頭にあるのですが、どこのA列になるかは、データによってまちまちになってしまうため、自分自身でそこを選択してからマクロ実行をしようと考えてます。

みんなの回答

  • pkh4989
  • ベストアンサー率62% (162/260)
回答No.1

こんにちは。 こんな感じでしょうか。 選択セルから+29右まで範囲を選択して、選択セルから+50右に貼付けです。 正しくなければ、数字を変更してくださいね。 Sub 切取_貼付() 　　Dim wR As Long 　　Dim wC As Integer 　　' 　　wR = ActiveCell.Row　　　　 '→選択セルの行を求める 　　wC = ActiveCell.Column　　 '→選択セルの列を求める 　　 　　ActiveSheet.Range(Cells(wR, wC), Cells(wR, wC + 29)).Cut _ 　　Destination:=ActiveSheet.Cells(wR, wC + 50) End Sub

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • マクロ　選択範囲及び切り取り＆貼り付けについて教えてください。

    (1)sheet1のＡ列からＨ列までデータが入っています。 (2)検索機能を使って発見されたセル（検索されるデータはＡ列にのみ入っています。）からＡ～Ｈ列のデータが入っている最終行まで選択し切り取り。（場合によっては検索を２回してから選択範囲を決めます） (3)sheet2のＡ２へ貼り付け (1)～(3)の作業をsheet7まで繰り返します。 マクロの記録を行うと選択範囲が指定され別のデータの時にも前と同じ範囲しか指定できません。 例 sheet1検索ち→発見されたセル（この場合Ａ３）からＡ～Ｈ列の最終行（Ａ９）選択及び切り取り→sheet2のＡ２へ貼り付け→検索ち→文字が縦に２回続いている場合は次を検索→発見されたセル（この場合Ａ６）からＡ～Ｈ列の最終行（Ｈ８）選択及び切り取り→sheet3のＡ２へ貼り付け sheet1　　　→　　　　　sheet2　　　→　　　sheet3 　ＡＢＣＤＥＨＧＨ　　　　ＡＢＣＤＥＨＧＨ　　ＡＢＣＤＥＨＧＨ １ち　あいうえおか　　１　　　　　　　　　　１ ２ひあいう　えおか　２ちあい　い　うえ　２ちあいうえお　か ３ちあい　い　うえ　　３　あいうえお　か　３ひあいうえおかき ４ゆあいうえお　か　４ちあいうおかき　　４ちあ　うえおき　 ５ちあいうおかき　　５ゆあいうえおかき　 ６　あいうえおかき　６ちあいうえお　か　 ７ちあいうえお　か　７ひあいうえおかき ８ひあいうえおかき　８ちあ　うえおき　 ９ちあ　うえおき　　 ＊実際のデータは２０００行ぐらいデータが入っています。 ＊見えずらくてすみません。

  • マクロの記録で任意の文字を検索してそのセルから範囲を選択したいのですが

    マクロの記録で任意の文字を検索して、見つかったセルから範囲を選択して別なシートへ切り取りし、貼り付けたいですが何か方法はありますか？現在は検索をしたセル番号になってしまいます。 マクロはじめたばかりです。 検索→い→(A2:C5）選択＆切り取り→sheet2貼り付け→検索（sheet2)→え→(A3:C4）選択＆切り取り→sheet3貼り付け sheet1　　　　→sheet2　　　→sheet3 　ＡＢＣ　　　　　ＡＢＣ　　　　ＡＢＣ １あかさ　　　　１いきし　　　１えけせ ２いきし　　　　２うくす　　　２おこそ ３うくす　　　　３えけせ ４えけせ　　　　４おこそ ５おこそ できれば検索で発見されたA2やA3を任意のアクティブセルにし、範囲はC列の一番下のセルを選択し切り取りたいのですができますでしょうか。

  • 「切り取り」「コピー」→「貼り付け」が出来ません

    「切り取り」「コピー」→「貼り付け」が出来ません エクセルで例えば「A１」のセルを右クリックで「切り取り」または「コピー」し、他のセルに「貼り付け」使用としても、右クリックの項目に「貼り付け」が灰色表示で実行する事が出来ません。 どうすれば「切り取り」「コピー」→「貼り付け」が出来るでしょうか？

  • マクロを使い選択範囲を次々と変えて並べ替えたい

    マクロ作成は 範囲選択　Ａ４～Ｇ１２ マクロ記録開始 並べ替え E列 降順 マクロ記録終了 でマクロを作成し 次に範囲選択　Ａ１４～Ｇ２２でこのマクロを実行すると範囲選択が前と同じＡ４～Ｇ１２が並べ替えられてしまいます。 マクロの中を見ると範囲選択　Ａ４～Ｇ１２が書かれてしまっています。 次のように、選択範囲を次々と変えて並べ替えるマクロを作りたいのですがお教え願います。 １． 範囲選択　Ａ４～Ｇ１２を選択 マクロ実行で選択範囲をE列の値で降順並べ替える ２． 範囲選択　Ａ１４～Ｇ２２を選択 マクロ実行で選択範囲をE列の値で降順並べ替える ３． 範囲選択　Ａ２８～Ｇ３２を選択 マクロ実行で選択範囲をE列の値で降順並べ替える

  • EXCELで指定した範囲の切り取り貼り付け

    Excelで シート1のＡ1～Ｅ1000までデータがあります。 Ｂ列には0～1500の数値データがあり昇順で並んでいます。 このＢ列のデータの700～1000の数値データのA～E列全ての範囲を「切り取り」・シート2に「形式を指定して貼り付け」（値）という作業をマクロにてできませんか？ 尚、1つセルが下がるごとに1数字があがるとは限りません。 大変困ってます。詳しい方ご教授ください。

  • エクセルで特定のセル（範囲）を選択出来なくするには？

    エクセルで特定のセル上（範囲内）でクリックしても、そのセルを選択出来ない様に設定したいのですが、やり方がよくわかりません。 本でいろいろ調べてみましたが、「セルの保護」とは違うようです。 よくこの様にしてあるエクセルのソフトを見るのですが、そういう設定をしたいのです。 ＶＢＡマクロのプログラム上でそのように設定するのでしょうか？ （マクロはある程度わかります） よろしければ御教示下さい。

  • 相対セルの範囲指定？

    現在選択しているセルから右に2つ分範囲指定して、それをコピー 左に2つ下に１つ移動してペースト セルの名称が(A1)のように決まっていればいいのですが、 場所が不確定の為に、自分で基準のセルを指定してからマクロ実行しようと考えてます。 基準セルを自分で選択後に上記のようなことをすることができるのでしょうか？

  • セルの数字を範囲で選択して計算させたいです。

    エクセル2000を使用しています。 CSVファイルを読み込んで、シートに，区切りで開きました。 特定の列の数字を範囲で選択して（複数行）、範囲で選択したセルの数字を1/1000したいです。 　特定のセルを範囲で指定するのは、毎回セルの開始行とセルの終了行が変わるためです。また　選択行の上下セルにも文字が入ってきます。 別シートに数式をいれないで、同じセルに計算結果を出すことは可能でしょうか？

  • Excel VBA　アクティブセルからある一定のセルまでの範囲選択

    Excel VBA　アクティブセルからある一定のセルまでの範囲選択 Excel2003を使用しています。 アクティブセルからC列に『計』と入力されている行の1行上のD列までを選択状態にするマクロを作成しようとしています。 C列に『計』と入力されている行は下記のように複数あるので、アクティブセルの行以下に入力されている次のC列の『計』の1行上までとしたいのですが、どのようにコードを書いたらいいでしょうか？ 例えば… A2セルをアクティブにしていてマクロを実行するとA2：D3が選択状態に A7セルをアクティブにしていてマクロを実行すると、A7：D9が選択状態になるように という具合です。 わかりづらくて申し訳ありませんが、よろしくお願いします。 　　　A　　　　　B　　　　　C　　　　　D 1　　日付　　　 №　　　品名　　　 金額 2　　1/1　 　　　1　 　　○○○　　 1,000 3　　1/2　 　　　2　 　　×××　　 1,500 4 　　　　　　　　　　　　　計 　　　　 2,500 5 6 7 　　1/1 　　　 5 　　　○×○　　 2,000 8 　　1/3 　　　 6 　　　××○　　 1,200 9 　　1/4 　　　 7 　　　×○○　　 2,500 　　　　　　　　　　　　　　計 　　　　 5,700 　　　　　　　　　　　： 　　　　　　　　　　　：

  • 選択範囲のセルを1行ずつ結合するマクロ

    こんにちは、いつも参考にさせていただいております。 セルを範囲選択し、 1行ごとに結合させる方法はないでしょうか。 手作業ではなくマクロでの方法を探しています。 イメージとしては (1)範囲選択する (2)マクロ実行する 　→列の範囲を1行ずつ、選択している範囲だけ各行を結合 図も添付いたしますので、どうかアドバイス・ヒント頂けないでしょうか。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する