Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4874 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【53882】結合セルを含む値コピー りった 08/2/13(水) 16:43 質問[未読]
【53893】Re:結合セルを含む値コピー ［名前なし］ 08/2/13(水) 22:05 回答[未読]
【53898】Re:結合セルを含む値コピー りった 08/2/14(木) 9:58 質問[未読]
【53899】Re:結合セルを含む値コピー VBWASURETA 08/2/14(木) 10:17 発言[未読]
【53901】Re:結合セルを含む値コピー VBWASURETA 08/2/14(木) 10:21 発言[未読]
【53904】Re:結合セルを含む値コピー りった 08/2/14(木) 11:13 質問[未読]
【53906】Re:結合セルを含む値コピー ハチ 08/2/14(木) 12:45 発言[未読]
【53907】Re:結合セルを含む値コピー りった 08/2/14(木) 13:08 お礼[未読]
【53882】結合セルを含む値コピー
質問  りった  - 08/2/13(水) 16:43 -
引用なし
パスワード
   いつもお世話になっております。

下記二つの条件でコピーしたいのですが、やり方がわかりません。
・結合セルが有る。
・コピー元には数式が入っているが、値としてコピーしたい

Range("A1:A3").Copy
Range("B1:B3").PasteSpecial xlPasteValues
とすると、「この操作には、同じサイズの結合セルが必要です」とのエラーになります。

Range("A1:A3").Copy
Range("B1:B3").PasteSpecial xlPasteAll
とすると、数式としてコピーされます。

Range("A1:A3").Copy
Range("B1:B3").PasteSpecial xlPasteAll
Range("B1:B3").PasteSpecial xlPasteValues
としても、「この操作には、同じサイズの結合セルが必要です」とのエラーになります。(xlPasteAllで同じサイズにわざわざしたつもりなのですが...)

(実運用しているソースは載せれないので、上記ソースは単純化したソースです。)
【53893】Re:結合セルを含む値コピー
回答  ［名前なし］  - 08/2/13(水) 22:05 -
引用なし
パスワード
   Range("B1:B3").Cells(1).Value = Range("A1:A3").Cells(1).Value

でどうですか？
【53898】Re:結合セルを含む値コピー
質問  りった  - 08/2/14(木) 9:58 -
引用なし
パスワード
   回答ありがとうございます。

Range("B1:B3").Cells(1).Value = Range("A1:A3").Cells(1).Value

でやってみたところ、A3がコピーされませんでした。

Range("B1:B3").Value = Range("A1:A3").Value
ってやってみたところ、A3もコピーされました。

が、別の問題が発生しました。
セル内の文字数が多いと
「アプリケーション定義またはオブジェクト定義のエラーです。」
になってしまいます。
実験してみたところ、912文字以上でエラーになります。(文字数が環境依存するかは知りません。)

条件追加ですみませんが、下記条件でのコピー方法をご教示下さい。
・文字数がやたらと多い
・コピー元は式コピー先は値
・コピー元は結合セルを含む
【53899】Re:結合セルを含む値コピー
発言  VBWASURETA  - 08/2/14(木) 10:17 -
引用なし
パスワード
   ▼りった さん：
おはようございます。
確かですが、１セルに入れられる文字数は制限があった気がします。

もしその関係だった場合は難しいかも知れません。
【53901】Re:結合セルを含む値コピー
発言  VBWASURETA  - 08/2/14(木) 10:21 -
引用なし
パスワード
   ▼りった さん：

すみません。制限の問題かなっと試しに

Range("B1").Value = Range("A1").Value

をやってみたら行けそうです。
結合されたままで値だけコピーできました。
【53904】Re:結合セルを含む値コピー
質問  りった  - 08/2/14(木) 11:13 -
引用なし
パスワード
   回答ありがとうございます。

>Range("B1").Value = Range("A1").Value
>
>をやってみたら行けそうです。
>結合されたままで値だけコピーできました。

確かに出来るとは思うのですが
・実運用のソースは結構大きな範囲をコピーしたいので(条件記載してなくて済みません)、ぐるぐるループして1セルずつValueを代入するとレスポンスが心配
・同様のコピー処理が数十箇所有るので全部をループにするのはキツイ。
　(関数かぶせても良いですが、他の人のVBAスキルが低いのであまり関数化したくない)

他に方法がなさそうでしたらそうさせて頂きます。
一括してコピーする方法無いですかね？
【53906】Re:結合セルを含む値コピー
発言  ハチ  - 08/2/14(木) 12:45 -
引用なし
パスワード
   ▼りった さん：

>条件追加ですみませんが、下記条件でのコピー方法をご教示下さい。
>・文字数がやたらと多い
>・コピー元は式コピー先は値
>・コピー元は結合セルを含む

コピー先のセルは、結合された状態にしたいのか？　が良くわかりませんが、
こんな感じで出来ないですかね？

新規WorkSheetにSample でデータを作って確認してみてください。

Option Explicit

'対象範囲　A1:A4とする
Sub Sample()
　　Range("A2:A3").Merge
　　Range("A1").Formula = "=REPT(1234567890,100)"
　　Range("A2").Formula = "=REPT(1234567890,100)"
　　Range("A4").Formula = "=REPT(1234567890,100)"
　　'A4は関数ではなく値に変更
　　Range("A4").Value = Range("A4").Value
End Sub

Sub Test1()
　　'検証用にＢ列を削除
　　Call B_Del
　　
　　Range("A1:A4").Copy Range("B1:B4")
　　With Range("B1:B4")
　　　　.Value = .Value
　　End With
　　
End Sub

Private Sub B_Del()
　　Range("B:B").Delete
End Sub
【53907】Re:結合セルを含む値コピー
お礼  りった  - 08/2/14(木) 13:08 -
引用なし
パスワード
   >コピー先のセルは、結合された状態にしたいのか？　が良くわかりませんが、

済みません。
出来れば結合状態を変えたくないですが、コピーしてしまっても妥協範囲内です。
(結合をすべて解除するのはNG)

>こんな感じで出来ないですかね？

.Value = .Value
のところでエラーになりました。

ですが、ご教示頂いた「コピーしてから再度値コピー」という発想を元にちょっと変えてみたところ出来ました。

Sub Test1()
　　'検証用にＢ列を削除
　　Call B_Del
　
　　Range("A1:A4").Copy Range("B1:B4")
　　With Range("B1:B4")
'　　　　.Value = .Value
　　　　.Copy
　　　　.PasteSpecial xlPasteValues
　　End With
　
End Sub

皆様、ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4874 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free