• ベストアンサー

VBA EXCEL セルのコピーについて

Range(Cells(PRow + SERVICE_ROW, 2), Cells(SRow, 40)).Select Selection.Copy Destination:=Range(Cells(PRow, 2), Cells(A, 40)) このような形で変数を使いセルの値のコピーし、貼り付けたいと思っています。 貼り付ける場所にも変数を使いたいのですが、 Aの部分が可変で値を設定できません。 Range("B2")みたいな意味でRange(Cells(Prow,2))みたいな感じでスタートだけ設定して貼り付けることはできないのでしょうか？

質問者が選んだベストアンサー

  • ベストアンサー
  • taocat
  • ベストアンサー率61% (191/310)
回答No.1

こんにちは。 ＞Range(Cells(Prow,2))みたいな感じでスタートだけ設定して貼り付けることはできないのでしょうか？ 一般的にはそうします。 で、指定の仕方は次のどちらかを使用。 　Destination:=　Range("B" & PRow) 　 　Destination:=　Cells(PRow, 2) またいちいちSelectしないで Range(Cells(PRow + SERVICE_ROW, 2), Cells(SRow, 40)).Copy Destination:=Range("B" & PRow) とするのがベターです。 それからこれは余談ですが、 質問のコードでは、Service_Row,SRowの値により現在の表に上書きになるのでは？？ 以上です。 　

riseshinejp
質問者

お礼

ありがとうございます。大変参考になりました。 たしかに上書きでした。

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

関連するQ&A

  • Excel VBA のコピーについて

    Range(Cells(7, 42), Cells(61, 79)).Select Selection.Cut Destination:=Range("B7") このような形で値をコピーしたいのですが、 その際、コピーされる方のRange("B7")の書式を そのまま生かしたい場合はどのような設定をすればよろしいのでしょうか？ windows2000でexcel2000になります。 よろしくお願い致します。

  • 【Excel2002VBA】Destinationを変数に

    Range("A1").Select Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillSeries Range("A1:A10").Select の2行目のDestinationの次のセル範囲(Range("A1:A10")の部分) を変数で表現したいのですが 書き方が分かりません… ご存知の方、どうか教えてくださいm(_ _)m

  • VBA 最終行を選んだシートにコピーする。

    VBAど初心者です。どうしても最終行のデータを選んだシートにコピーできません。 LastRow.Selectのところで、止まってしまいます。どのように行を設定していいのかさっぱりわかりません。どなたか、ご指導のほどよろしくお願いします。 Sub copy_last_line() Dim LastRow As Long Sheets("Sheet1").Select LastRow = Cells(Rows.Count, 1).End(xlUp).Row LastRow.Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select Range("A1").Select End Sub

  • マクロ　可視セルへコピーする方法

    こんにちは。よろしくお願いします。 Ａ～Ｖ列、300～400行程度の表を作っています。 8行目をコピーして空白行へペーストしたいのですがどのようにすれば良いでしょうか。 マクロの記録でつくったものは ActiveSheet.Paste でエラーになります。 またペースト開始行をA17ではなくて可変なものに変えたいです。 よろしくお願いします。 Sub 下までコピー() Range("A8:V8").Select Selection.Copy Selection.AutoFilter Field:=2, Criteria1:="=" Range("A17:V" & Range("B5").End(xlDown).Row).Select Selection.SpecialCells(xlCellTypeVisible).Select ActiveSheet.Paste Application.CutCopyMode = False Selection.AutoFilter Field:=2 End Sub

  • VBAでセルが空白かどうかを調べたい（Excel）

    エクセル2000関連でVBAを勉強し始めました。 A1～C3まで列の名前が入っていて、 A2～C2列以下（データを入れるのはA3～C3, A4～C4・・で、どの行までデータが入っているかは 分からない状態）が空白か どうかを調べたい時にはどう書けばよろしいのでしょうか？ ・A65536～C65536まで選択し ・上向きにデータが存在するかどうかを調べていって ・最終的にActiveになっている行番号が1であれば A2～C65536までは空白。 1じゃなければ、データがどこかに存在する。 という方法で調べようかと思ったのですが、 Dim Line As Integer Range("A65536:C65536").Select Range(Selection, Selection.End(xlUp)).Select 　Line = Selection.Row でLineの値で判別しようかと思ったのですがうまく いきません。何が間違っているのでしょうか？ また、より効率的な方法があったら教えていただき たいです。お願いします。

  • EXCEL VBA----離れたセル範囲の指定

    こんにちは。初歩的なことで困っています。 Range("A3:A19,F3:F19").Select のように、離れたセル範囲を選択したいのですが 上の例の19行目が不定であるため、変数を使ったCellsプロパティを使用し i=Range("A3").End(xldown).Row Range("Cells(3, 1).Cells(i, 1), Cells(3, 6).Cells(i, 6)").Select と書いてみたのですが、エラーになってしまいました。 正しい指定の仕方を教えて下さい。よろしくお願いします。

  • エクセルVBA：マクロの中にマクロ？

    度々よろしくお願いします。ボタンが複数あって、それぞれに記録されたマクロの一部分が共通している場合の処理について教えてください。 例えば、前回の質問でご回答いただいたモノを流用し、別の処理と複合させたマクロがあります。 この変数ixがボタン（それぞれのマクロ）ごとに異なる場合、Do While以下を別のマクロとして記録し、それぞれのマクロの中で Application.Run "TEST.xls!Macro1"などのようにできるのでしょうか？変数の扱いをどうして良いのかわかりません。 Sub test() ～別の処理 ix = 8 Do While Cells(ix, "D") <> "" 　　Select Case Trim(Cells(ix, "D")) 　　Case "背筋" 　　　　Range("AZ8").Copy Destination:=Range(Cells(ix, "I"), Cells(ix, "AW")) 　　Case "アーム" 　　　　Range("BA8").Copy Destination:=Range(Cells(ix, "I"), Cells(ix, "AW")) 　　Case "レッグ" 　　　　Range("BB8").Copy Destination:=Range(Cells(ix, "I"), Cells(ix, "AW")) 　　End Select 　　Range(Cells(ix, "I"), Cells(ix, "AW")).Copy 　　Cells(ix, "I").PasteSpecial Paste:=xlPasteValues 　　ix = ix + 1 Loop Range("I8").Select End Sub

  • セルをコピーしてシート名を取得　【VBA】

    こんばんわ。 エクセルのVBAについて、どうしてもわからなくなったので質問させて下さい。 マクロの内容は １．一番前のシート（名前はSheet1ではありません。）のボタン35をクリック ２．シートをコピーして３番目に置く。 ３．値にする。 ４．シート名をセルの"DE16"に入っている値にする。 ５．ボタンを消す。 以下の内容になりましたが、名前のところでデバックがおこります。 Sub ボタン35_Click() Worksheets(1).Select Worksheets(1).Copy After:=Sheets(3) Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Worksheets(3).Select Worksheets(3).Name = Range("DE16").Value ActiveSheet.Shapes("Button 11").Select Selection.Delete Application.CutCopyMode = False End Sub どなたかお知恵を貸して下さい。

  • 空白セルと０値を識別させたい。（VBA）

    すみません、誰か教えていただけますか。 シートの53、54、55行目にそれぞれ値入っています。 それを３行目にビジュアル的に表現させています。 55行目はセルの色で、53行目は数値があり同じ値が 続く部分の合計を出しています。 しかし、下記の記述ですと数値が0（変数D=0）の時に うまくいきません。空白セルと認識されてしまうと思います。 何か、良い方法があれば教えて頂けませんでしょうか。 宜しくお願いします。 Sub 表示() Dim a As Long Dim c As Long Dim D As Long Dim e As String Dim f As String c = 3 For a = 3 To 64 With Worksheets("Sheet1") If .Cells(53, a) <> .Cells(53, a + 1) Then .Range(.Cells(53, c), .Cells(53, a)).Select D = WorksheetFunction.Sum(Selection) e = D f = Selection(1).Offset(1, 0).Value G = Selection(1).Offset(2, 0).Value If D <> 0 Then Selection(1).Offset(-50, 0).Value = f + "//" + e .Range(.Cells(53, c), .Cells(53, a)).Offset(-50, 0).Select Selection.Interior.ColorIndex = G End If If Selection(1).Value = "" Then .Range(.Cells(53, c), .Cells(53, a)).Offset(-50, 0).Select Selection.ClearContents Selection.Interior.ColorIndex = xlNone End If c = a + 1 End If End With Next End Sub

  • エクセルＶＢＡのコピーがうまく出来ません

    セルD3:D101に楽天SPのRSS数式の数値が表示されてきます。 3分おきにマクロを実行させ右側の列に順次データを追加していきたいのですが以下のマクロでは3分後にはセルE3:E101へ数式を含む全てがコピーされてしまい値だけをコピーできません。たぶん構文のCopy Cells(3, c + 1)を変更しなくてはいけないと思い試行錯誤したのですが分かりません。 どなたか教えてください。 Private Sub Macro1() Dim nextTime As Date Dim c As Date Dim d As Date Range("D3:D101").Select Selection.Copy c = Range("iv3").End(xlToLeft).Column d = Range("D65536").End(xlUp).Row Range(Cells(3, "D"), Cells(d, "D")).Copy Cells(3, c + 1) Columns("D:D").Select Application.CutCopyMode = False nextTime = Now() + TimeValue("00:03:00") Application.OnTime nextTime, "Macro1

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する