別シートの数値を一定間隔で値のみを貼り付ける

質問

お力を貸していただける方がいらっしゃれば、大変ありがたいです！
エクセルに関する質問です。

コピー元エクセルシートのセル（B6,B7,B8,・・・Ｂ200）に数値が入力されています。
その値を、別シートのセル（KL6,KL46,KL86,・・・ＫＬ10526）に値のみを貼り付けたいのですが、(※ＫＬとしたのは、ＫとＬが結合されていることを表しています。)
何か良い方法は無いものでしょうか。

指定のフォームに数値等を入力していくのですが、単純な作業だけでも簡略化できれば、非常に助かります。
マクロや数式などの知識はあまりありませんので、説明が足りていないかもしれませんが、お力を貸していただければ幸いです。

回答No.4

bunjii

>コピー元エクセルシートのセル（B6,B7,B8,・・・Ｂ200）に数値が入力されています。
>その値を、別シートのセル（KL6,KL46,KL86,・・・ＫＬ10526）に値のみを貼り付けたいのですが
B6からB200までは195個のセルになりますのでKL10526ではセル数が合いません。

>※ＫＬとしたのは、ＫとＬが結合されていることを表しています。
K6とL6を結合すると、そのセルに入力された値はK6セルで読み出せます。
L6セルは空欄（未入力）となります。
また、Excel 2007以降のバージョンではKL6と言うセル番地が別に存在するのでK6とL6が連結したものをKL6と言う表現は好ましくありません。

K6セルに次の数式を入力して下へ必要数コピーすれば良いでしょう。
=IF(MOD(ROW(),40)=6,INDEX(B:B,INT(ROW()/40)+6),"")
貼り付け先のセル数が多いので選択するときは左上の名前ボックスに直接K7:K10526と入力してEnterキーを打鍵すれば一挙に貼り付け先の選択状態になります。

回答No.3

Chiquilin

> マクロや数式などの知識はあまりありませんので
ならマクロも数式も使わずにできる方法を考えた方がいいのでは？

貼り付け先のセルが連続するようにフラグを立てておいて その列でソートし
て 貼り付けた後で 元の順に（予め連番を振っておく）戻したらどうですか？

回答No.2

tom04

こんばんは！

＞(※ＫＬとしたのは、ＫとＬが結合されていることを表しています。)
K6.L6セル、K46・L46セル・・・と2セルが40行おきに結合されているというコトでしょうか？

VBAになりますが、一例です。
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）マクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）
B200セルはＫＬ10526までいかないので、B列最終行までとしています。

Sub Sample1() 'この行から
Dim i As Long
For i = 6 To Cells(Rows.Count, "B").End(xlUp).Row '★B列6行目～最終行まで
With Cells((i - 6) * 40 + 6, "K")
.Resize(, 2).Merge
.Value = Cells(i, "B")
End With
Next i
End Sub 'この行まで

※　K・L列が結合されていないくても結合するようにしています。m(_ _)m

回答No.1

HAMASAKI0810

>（B6,B7,B8,・・・Ｂ200）
これは連続したセルですか。

>（KL6,KL46,KL86,・・・ＫＬ10526）
これは連続していないようですね。全体の数はどれくらいになりますか。
単純に
K6に=B6
K46に=B7
K86に=B8
をK10526＝B200
という風にすればOKなら195個のセルを埋めれば終わりのようなきがしますが、「値のみ」ということは上記の数式ではいけないのでしょうか？