ここから本文です

エクセルVBAについて エクセル2010で以下のようなこと作成したいです。 あるシ...

アバター

ID非公開さん

2018/1/1114:29:55

エクセルVBAについて

エクセル2010で以下のようなこと作成したいです。
あるシートのセルA2からデータ1・データ2・データ3・・・・・と縦1列にデータがあります。

これを別シートのB2~C4・B12~C14・・・・と2列3行にコピーもしくは値を取得したいです。
このデータが膨大な量になっており、関数を使用するとブックが重くなりすぎてしまうので、
VBAを使用することを考えております。
VBAは多少なりとも使えますが、まだまだ勉強中で
やりたいことがうまく出来ないでいます。

どなたかご教授くださいますよう、
よろしくお願いいたします。

C4・B12,セルA2,データ,C14,エクセルVBA,A&quot,Dim i As Long

閲覧数:
27
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

msk********さん

2018/1/1115:08:58

一例です。

Sub sample()
Dim i As Long, j As Long
j = 2
With Sheets("sheet2")
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Step 6
.Cells(j, "B").Resize(3) = Cells(i, "A").Resize(3).Value
.Cells(j, "C").Resize(3) = Cells(i + 3, "A").Resize(3).Value
j = j + 10
Next
End With
End Sub

アバター

質問した人からのコメント

2018/1/15 08:31:04

おかげさまで無事解決いたしました
拙い文章の中、回答いただきまして
ありがとうございました

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる