VBAの解説

質問

お世話になります
値、セルの操作ですが列数等の変更が生じたため変更を求められています。
下記ＶＢＡ判りやすく説明できる方お願い致します。
Sub Macro1()
Dim idxR, idxC, ptr As Integer
Dim ws As Worksheet
Set ws = ActiveSheet
Worksheets.Add after:=ws
ptr = 2
With ws
.Rows(1).Copy Destination:=Range("A1")
For idxR = 2 To .Range("A65536").End(xlUp).Row
Cells(ptr, "A").Value = .Cells(idxR, "A").Value
For idxC = 2 To 255 Step 2
If .Cells(idxR, idxC) = "" Then
Exit For
Else
.Cells(idxR, idxC).Resize(1, 2).Copy Destination:=Cells(ptr, "B")
ptr = ptr + 1
End If
Next idxC
Next idxR
End With
End Sub

回答No.1

pkh4989 · ベストアンサー

お早うございます。

このマクロの説明で、理解出来るでしょうか。
Sub Macro1()
　　Dim idxR, idxC, ptr As Integer
　　Dim ws As Worksheet
　　'
　　Set ws = ActiveSheet　　　　　　　　'前面に表示されているシートを「ws」の変数に設定
　　　　　　　　　　　　　　　　　　　　'次から「元シート」と表現します。
　　Worksheets.Add after:=ws　　　　　　'前面に表示されているシートの後ろに新しくシートを追加する
　　　　　　　　　　　　　　　　　　　　'この時、追加シートがActive(前面表示)になります
　　　　　　　　　　　　　　　　　　　　'次から「追加シート」と表現します。
　　ptr = 2　　　　　　　　　　　　　　 '「追加シート」用のRow(行)変数に「2」を代入する
　　With ws
　　　　.Rows(1).Copy Destination:=Range("A1")　　 '「元シート」の1行目を「追加シート」のセル「A1」へコピーする
　　　　　　　　　　　　　　　　　　　　　　　　　　'「追加シート」の1行目にコピーされる
　　　　For idxR = 2 To .Range("A65536").End(xlUp).Row　　 '「元シート」のA列2行目から使っている行まで1行ずつ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'処理を行う
　　　　　　Cells(ptr, "A").Value = .Cells(idxR, "A").Value '「元シート」のセル「A2」(次はA3～)の値を「追加シート」のセル「A2」(次はA?～)にコピー
　　　　　　For idxC = 2 To 255 Step 2　　　　　　 '2カラム～255カラムまで、2行ずつ処理を行う
　　　　　　　　If .Cells(idxR, idxC) = "" Then　　 '「元シート」もカラムにデータがないかをチェックする
　　　　　　　　　　Exit For　　　　　　　　　　　　'データがない時はこの処理を止める
　　　　　　　　Else
　　　　　　　　　　　　　　　　　　　　　　　　　　'「元シート」にデータがあり時、行の変数「idxR」に設定されている
　　　　　　　　　　　　　　　　　　　　　　　　　　'行、カラム変数「idxC」に設定されているカラムから+1カラムの
　　　　　　　　　　　　　　　　　　　　　　　　　　'データを「追加シート」のB列の行変数「ptr」に設定されている行にコピーする
　　　　　　　　　　.Cells(idxR, idxC).Resize(1, 2).Copy Destination:=Cells(ptr, "B")
　　　　　　　　　　ptr = ptr + 1　　　　　　　　 '「追加シート」のRow(行)の変数に1を加算する
　　　　　　　　End If
　　　　　　Next idxC
　　　　Next idxR
　　End With
End Sub

< 処理内容 >
1.「元シート」の1行目を「追加シート」の1行にコピーする
2. 次の行(2～)は1行のデータを「追加シート」の行(2～)へ次のようにコピーする
(1)「元シート」のAカラムのデータを「追加シート」のAカラムへコピー
(2)「元シート」のBカラム～データがあるカラムまで、2セルずつ、「追加シート」のB列～C列へコピーする
※但し、「追加シート」の行を加算しながらB列～C列へコピーする
「元シート」にデータがあるまで、2の処理を繰り替える

お礼

お返事ありがとうございます
せっかく教えて頂いたのですが、わからないことだらけで何から聞けばいいのかわからなく途方にくれています。
スキルの低さに自分の未熟さを痛感しているところです
又、補足等に現状を簡単ですができるならもう少し、ご教授お願いします。
どちらにせよここでお礼を申し上げます
ありがとうございます

補足

お返事ありがとうございます
現状では、値貼り付け等の件であたふたしてまして
朝からずっと考えてもわからず難航しています、
現状を報告いたしますと、

10列目までは既存のままで
以降11列目から9列×10単位で操作をしたいのですが変更方法わかりますか？

回答No.2

pkh4989

お早うございます。

変更したい内容を具体的教えてください。
現状は以下のようになります。

<元シート>
TＡＡＡ　DＢＢＢ
Tあああ　D100　D200　D300　D400　D500　D600　D700　D800　D900　D1000
Tいいい　D111　D222　D333　D444　D555　D666　D777　D888　D999　D1111
Tううう　Daaa　Dbbb　Dccc　Dddd　Deee　Dfff　Dggg　Dhhh　Diii　Djjj
　↓
<追加シート>
TＡＡＡ　DＢＢＢ
Tあああ　D100　D200
　　　　D300　D400
　　　　D500　D600
　　　　D700　D800
　　　　D900　D1000
Tいいい　D111　D222
　　　　D333　D444
　　　　D555　D666
　　　　D777　D888
　　　　D999　D1111
Tううう　Daaa　Dbbb
　　　　Dccc　Dddd
　　　　Deee　Dfff
　　　　Dggg　Dhhh
　　　　Diii　Djjj

>以降11列目から9列×10単位で操作をしたいのですが
この意味は良く解りません。具体的に上記のように表として書いてください。