プロが教えるわが家の防犯対策術！

VBAでの結合セルのコピー＆ペースト

解決済

  • 質問者：nao_lin
  • 質問日時：
  • 回答数：4件

こんにちは。
EXCELのVBAでマクロを作成しています。
セルの値のコピー＆ペーストを行おうとしているのですが、結合されているセルのペーストのときに、「同じ結合セルが必要です」とエラーになってしまいます。
例えば、A1とA2が結合されたセル+A3をコピー
Worksheets(x).Activate

Range("A1:A3").Selection
Range("A1:A3").Copy

別のシートで、B1とB2が結合されたセル+B3にペースト
Worksheets(y).Activate
Range("B1:B3").Paste


セルの結合を解除すればうまくいきます・・・
セルを結合したままペーストしたいのですが、どうやら間違っているようです(ノ_・。)
どなたか教えてください。
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「なんどもすみません」に関するQ&A： なんどもすみません　でも…

A 回答 (4件)

No.3ベストアンサー

  • 回答者： merlionXX
  • 回答日時：

nao_linさんこんにちは。

merlionXXです。

> 値だけ貼付けのオプションをつけるとエラーになってしまうのは何故なのでしょうか？

結合セルの値貼り付けは無理のようですね。↓
http://support.microsoft.com/default.aspx?LN=JA& …
    • good
    • 3
    • 件
通報する
この回答へのお礼

製品の問題だったのですが・・・、参考になりました。
一旦結合を解除してから再度結合するしか方法がないようですね。どうもありがとうございました。

通報する
お礼日時：2006/06/06 11:42

No.4

  • 回答者： merlionXX
  • 回答日時：

なんどもすみません、merlionXXです。


考えたんですが、値貼り付けならなにもコピーしなくてもいいですよね？
Sub test01()
Sheets(2).Range("B1:B3").Value = Sheets(1).Range("A1:A3").Value
End Sub
結合していても、上記でＯＫでは？
    • good
    • 8
    • 件
通報する
この回答へのお礼

いつもどうもありがとうございます。
上記で無事、できました！
単純なことでしたね、またよろしくお願いします。

通報する
お礼日時：2006/06/06 15:57

No.2

  • 回答者： merlionXX
  • 回答日時：

コピー領域と貼り付け領域のセルの状態が同じであれば、なにもわざわざ選択しなくとも


Sub test01()
Sheets(1).Range("A1:A3").Copy
Sheets(2).Range("B1:B3").PasteSpecial
Application.CutCopyMode = False
End Sub
こんな感じでセルを結合したままペースト出来ると思います。

この回答への補足

merlionXXさん、いつもどうもありがとうございます。
確かに、おっしゃるとおりそのまま行えがペーストができました。でも、値だけ貼付けのオプションをつけるとエラーになってしまうのは何故なのでしょうか？
教えていただけますか？罫線とか背景は貼付けしたくないのですが・・・。
↓これはエラー
Sheets(2).Range("B1:B3").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone

補足日時：2006/06/06 09:53
通報する
    • good
    • 0
    • 件
通報する

No.1

  • 回答者： Usadayuu
  • 回答日時：

セルを同じセル数選択していないことが原因だと思います。


結合してある場合はコピー元が3セルなら、コピー先も3セル選択しておきます。

Worksheets(y).Activateの後に
Range("B1:B3").Select
ActiveSheet.Paste
でペーストできると思います。
    • good
    • 1
    • 件
通報する
この回答へのお礼

セルは同じセル数選択しているのにうまくいかなかったので困っていました。
一部製品の問題があったようです。
ありがとうございました。

通報する
お礼日時：2006/06/06 15:59

このQ&Aに関連する人気のQ&A

「なんどもすみません」に関するQ&A： ＡＴの左足ブレーキは危険なのですか？

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するQ&A

関連するカテゴリからQ&Aを探す

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

Q質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルのマクロで結合セルに値を貼り付けたい

みなさん、お知恵をください。
Excel2000です。
Sheets(1)に　A:D　までを結合したセルを３０行ぐらい用意した状態で
Sheets(2)の　単一セル　A1,A2,A3,A4,A5・・・・とつづく変数　HENSUUを
貼り付けたいのです。＊HENSUUは値のみの文字であったり数字です。

もちろん下記の過去質問はチェック済みです。
http://oshiete1.goo.ne.jp/qa2197173.html

物まねで作成しましたがエラーです。
Sheets(2).Select
HENSUU = Range("A65536").End(xlUp).Row　　’変数最終行定義
Sheets(1).Range(Cells(1, 1), Cells(HENSUU, 1)).Value = Sheets(2).Range(Cells(1, 1), Cells(HENSUU, 1)).Value

すみません。お知恵を拝借させて下さい。
よろしくお願いします。

Aベストアンサー

Sheets(1).Range("A1:A" & HENSUU).Value = Sheets(2).Range("A1:A" & HENSUU).Value
では無理かな？

他の回答も見る

Qエクセルマクロで結合されたセルをコピー

こんばんは、エクセルで、結合されたセルを結合セル数の違うセルにマクロで貼り付けたいのですが、どのようにしたらよいでしょうか？
結合セル数が違ってもコピー貼り付けできるところとできないところがあるのですが、どうしてでしょうか？
よろしくお願い致します！！！！！

Aベストアンサー

似たような質問があったので

http://oshiete1.goo.ne.jp/qa2949626.html


マクロについては
マクロの記録を活用しましょう

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2009/1/17 ユーザー名 :
'

'
Range("A1:D1").Select
Selection.Copy
Range("A2:G2").Select
ActiveSheet.Paste
End Sub

他の回答も見る

QEXCEL VBA　で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

＞現在開いているブックのファイル名
　ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

　しかし、
＞VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

他の回答も見る

QExcel　結合されたセルへの貼り付けについて

Excelにおいて、結合されていないセルのデータ（複数）を一度にコピー＆ペーストしようと考えていますが、ペースト先は結合されたセルとなっております。

何かいい対策案はありませんか。

Aベストアンサー

結合セルの大きさはどうなっていますか。
同じサイズなら
最初の結合セルに、#A1 として下方にフィルコピーすると
#A1
#A2
#A3
#A4
#A5
・
・
というようになります。
範囲選択状態のまま、編集メニューの「置換」で
#
を
=
に、「すべて置換」ればセル参照式になります。
続けて、範囲選択状態のまま、コピーして
その場で「形式を選択して貼り付け」の「値」で貼り付けます。

他の回答も見る

QExel VBA　別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列　　　　 B列　　　　　C列　　　　　　
商品名　　商品番号　　コード
モータ　　U-1325-L　　
ホルダ　　R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。

自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル（B列のコード）の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが…

Sub 別ブックから貼り付ける()
　　Dim 検索する As Long
Windows("部品表.xls").Activate
検索する = cells(i,2).Value
Windows("コード一覧表.xls").Activate
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd

と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。

基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列　　　　 B列　　　　　C列　　　　　　
商品名　　商品番号　　コード
モータ　　U-1325-L　　
ホルダ　　R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
　Application.ScreenUpdating = False
　Dim I As Long
　Dim xlBook
　Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★
　I = 2
　Do While Range("A" & I).Value <> ""
　　ThisWorkbook.Worksheets("Sheet1").Range("C" & I).Value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("B" & I).Value, xlBook.Worksheets("Sheet1").Range("A2:B65535"), 2, 0)
　　I = I + 1
　Loop
　xlBook.Close
　Application.ScreenUpdating = True
　MsgBox ("完了")
End Sub

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
　Application.ScreenUpdating = False
　Dim I As Long
　Dim xlBook
　Set xlBook = Workbooks....続きを読む

他の回答も見る

Qエクセル：マクロ「Application.CutCopyMode = False」って？

エクセルのマクロを記録していると

「Application.CutCopyMode = False」

というものがよく出てきますが、これは何でしょう？
どういう意味のものかわかりません。
削除しても差し支えないのもでしょうか？

Aベストアンサー

「Application.CutCopyMode = False」の前で
セルのコピー、または切り取りを行っていると思います。
これは、その操作(セルのコピー、または切り取り)を無効にしているだけです。
------------
Range("A1").Select
Selection.Copy ← これを無効にしている
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
------------
上記の場合であれば、「Application.CutCopyMode = False」を削除しても問題ありませんが、
以下の場合、貼り付け処理でエラーになります。
------------
Range("A1").Select
Selection.Copy
Range("A2").Select
Application.CutCopyMode = False
ActiveSheet.Paste ← ココでエラー
------------
ご自分で、セルをコピーしてみると分かると思いますが、コピーした範囲が点線で点滅されます。
「Application.CutCopyMode = False」をすると、
その点滅がなくなります。

「Application.CutCopyMode = False」の前で
セルのコピー、または切り取りを行っていると思います。
これは、その操作(セルのコピー、または切り取り)を無効にしているだけです。
------------
Range("A1").Select
Selection.Copy ← これを無効にしている
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
------------
上記の場合であれば、「Application.CutCopyMode = False」を削除しても問題ありませんが、
以下の場合、貼り付け処理でエラーになります。
------------
...続きを読む

他の回答も見る

Q別のシートから値を取得するとき

Worksheets("シート名").Activate
上記のを行ってから別シートの値を取得するのですが、
この処理を行うと指定したシートへ強制的にとんでしまいます。。。

※イメージ
For　～　To　～
　　Worksheets("シートＡ").Activate
　　シートＡの値取得
　　　　　　　：
　　Worksheets("シートＢ").Activate
　　シートＢの値取得
Next

このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。
シートを変えずに他のシートから値を取得する方法はないのでしょうか。
教えてください！

Aベストアンサー

Worksheets("シートＡ").Range("A1")

みたいな感じでできませんか？

他の回答も見る

QVBA 実行時エラー1004　rangeメソッドは失敗しました。globalオブジェクトのエラー

始めまして、VBA初心者のものです。
ただいまエクセルでグラフを作成しています。作業自体は単純作業の繰り返しなのでVBAを用いてやりたいのですが、マクロを実行したときに実行時エラー’1004’rangeメソッドは失敗しました。’＿global’オブジェクトとメッセージが出て、実行できません。　デバックをすると以下の5行目で黄色のバーが出ていました。自分なりに原因を考えたのですがrangeの関係するところに、Range("A8:A1587,e8:e1587")というような変数を用いないやり方でやると上手くいくので、変数に関する定義がまずいと思うのですが、それ以上の事は分かりません。どなたか、分かる方がおりましたら、よろしくお願いします。また、プログラムは以下のようになります。

Sub 繰り返し()
'繰り返し
Dim s As Integer
For s = 0 To 17
Range("cells(8,1):cells(1580,1),cells(8,s+2):cells(1580,s+2)").Select
Range("cells(8,s+2)").Activate
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("20081216_210647").Range( _
"cells(8,1):cells(1580,1),cells(8,s+2):cells(1580,s+2)"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=""0810p2x"""
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="0810p2x"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "0810p2x"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "t"
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Next
End Sub

始めまして、VBA初心者のものです。
ただいまエクセルでグラフを作成しています。作業自体は単純作業の繰り返しなのでVBAを用いてやりたいのですが、マクロを実行したときに実行時エラー’1004’rangeメソッドは失敗しました。’＿global’オブジェクトとメッセージが出て、実行できません。　デバックをすると以下の5行目で黄色のバーが出ていました。自分なりに原因を考えたのですがrangeの関係するところに、Range("A8:A1587,e8:e1587")というような変数を用いないやり方でやると上手くいくので、変数に関する定義...続きを読む

Aベストアンサー

＞ご指摘を受けたところを書き換えて回してみた結果、書き換えた箇所
＞でエラーがでます。(実行時エラー’1004’’cells’メソッドは失敗
＞しました。’global’オブジェクト)
＞しかし、何が原因でエラーになるか自分では分かりません。

≪例1≫
Range(Cells(8, 1), Cells(1587, 2)).Select
上記の例では、RangeとかCellsの上位オブジェクトであるシート名が省略されています。
ActiveSheet.Range(ActiveSheet.Cells(8, 1), ActiveSheet.Cells(1587, 2)).Select
というわけです。
マクロ実行時に、Activeな（Excelで表示されている）シートが上位オブジェクトとして、自動的に認識されます。

≪例2≫
Sheets("Sheet2").Range(Cells(8, 1), Cells(1587, 2)).Select
上記の例では、Rangeのみシート名が記述されています。
Sheets("Sheet2").Range(ActiveSheet.Cells(8, 1), ActiveSheet.Cells(1587, 2)).Select
というわけです。
Activeなシートが、Sheet2の場合はエラーになりません。
しかし、ActiveなシートがSheet2以外の場合、エラーが発生します。
直前に、
Sheets("Sheet1").Select
などとしていれば、ActiveシートがSheet1になっていますから、エラーになります。

Sheets("Sheet2").Range(Sheets("Sheet2").Cells(8, 1), Sheets("Sheet2").Cells(1587, 2)).Select
と書いておけば安心です。
Withステートメントを使えばスッキリ纏めることができます。
With Sheets("Sheet2")
　　.Range(.Cells(8, 1), .Cells(1587, 2)).Select
End With

# Sheets("Sheet2")の上位オブジェクトが省略されていることにも気がついてください。

＞そこで自分で基礎を勉強したいのですが推薦できる参考書などがござ
＞いましたら、教えていただけませんか？
私自身は、入門書程度の雑誌を1冊買っただけです。どれが良いとかはよく分かりません。
「マクロの記録」を活用して、参考コードを取得し、汎用性のあるコードに編集しています。
新しい単語があれば、文字カーソルを単語の上に置き、F1キーを押してVBAのヘルプを必ず見るようにしています。
躓いた時は、Web検索して欲しい情報を得たり、あるいは、こうした掲示板で先輩方のお力をお借りしています。

Excel(エクセル)VBA入門：目次
http://oshiete1.goo.ne.jp/kotaeru_reply.php3?q=4651404
エクセル入門・初級編
http://www.kenzo30.com/excel_kiso.htm

＞ご指摘を受けたところを書き換えて回してみた結果、書き換えた箇所
＞でエラーがでます。(実行時エラー’1004’’cells’メソッドは失敗
＞しました。’global’オブジェクト)
＞しかし、何が原因でエラーになるか自分では分かりません。

≪例1≫
Range(Cells(8, 1), Cells(1587, 2)).Select
上記の例では、RangeとかCellsの上位オブジェクトであるシート名が省略されています。
ActiveSheet.Range(ActiveSheet.Cells(8, 1), ActiveSheet.Cells(1587, 2)).Select
というわけです。
マクロ実行時に、Activeな...続きを読む

他の回答も見る

QエクセルVBA　別シートの複数のセルの値をコピーする方法

いつもお世話になります。

Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")

sh1.Range("C6").Value = sh2.Range("F5").Value
として、1つのセルの値ならコピーできるのですが、
sh1.Range("C6:C10").Value = sh2.Range("F5;F9").Value
としても、セルの値を持ってくることができません。
どのように書けば良いのでしょうか？

ちなみに今は、
sh2.Range("F5:F9").Copy
sh1.Range("C5:C9").PasteSpecial Paste:=xlValues
としているのですが、上記だとセルを範囲指定してしまって作業が見えるのでカッコ悪いのです。

Aベストアンサー

7-samuraiの質問ですみません。
No5のimogasiさん、いつもお世話様です。

Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("sheet2")
Set sh2 = Worksheets("sheet1")
sh1.Range("c1:c5").Value = sh2.Range("A1:A5").Value
End Sub

で、うまくいきますよ。
複数セルの場合Valueは省略できないようです。

他の回答も見る

QEXCEL VBAマクロ作成で、他のEXCELからデータを取り込みたい

メインプログラム(EXCEL VBA)より、
他のフォルダーにあるEXCELの項目の内容を取り込みたいです。
たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。

・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(？)は、表示はできてます。
・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。

・となると次はOPEN,INPUTですか？
テキストデータの取り込みですと、Inputでそのバッファを定義してるのですが、なんか違うような。。。

よろしくお願いします！

Aベストアンサー

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Cells(2, 2).Value ' 相手シートの B2 の値を自分自身の A1 に書き込む

readBook.Close False ' 相手ブックを閉じる
Set readSheet = Nothing
Set readBook = Nothing

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Ce...続きを読む

他の回答も見る
ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報