解説と追記をお願いします。昨日はご回答頂き

Writer: admin Type: savan Date: 2019-01-24 00:00
解説と追記をお願いします。昨日はご回答頂きありがとうございました。書いて頂いたマクロですが、☆から☆の間が、どうしても読みきれません。たぶん Cells(変数)の部分が理解できていないのだと思います。元シートのRange("A1:E6")の間で、塗りつぶしがない空白セルを、新規シートへコピーする構文なんだろうな~って感じはしているのですが、通常、コピーしたらペーストしますよね?そのペーストに当たる部分がわからないのと、塗りつぶしたセルを削除する指示が見当たらないのに、新規シートにはコピーされないのはなぜですか?ご面倒でも解説頂けると助かります。それと、回答頂いた質問へも追記しましたが、処理したい表が、下に続いています。Range("A1:O42")の間に5×6セルが横に3ブロック縦に7ブロックあります。書いて頂いた構文を6行下にずらして処理できれば、、、、と思うのですが、どこを変えたら良いでしょうか?お忙しいところ恐縮ですが、ご回答頂けたら幸いです。Sub sample() Dim sh As Worksheet, rng1 As Range Dim i As Long, ii As Long, j As Long With ActiveSheet Set sh = Worksheets.Add For i = 0 To 10 Step 5 With .Range("A1:E6").Offset(, i) Set rng1 = sh.Range(.Address) j = 0 For ii = 1 To .Count ☆With .Cells(ii) If .Value <> "" And .Interior.ColorIndex = xlColorIndexNone Then j = j + 1 .Copy rng1.Cells(j)☆ End If End With Next ii With rng1 .Borders.LineStyle = xlContinuous .Borders.Weight = xlHairline .Borders(xlEdgeTop).Weight = xlMedium .Borders(xlEdgeBottom).Weight = xlMedium .Borders(xlEdgeLeft).Weight = xlMedium .Borders(xlEdgeRight).Weight = xlMedium End With End With Next i End With End Subこの質問は、tra********さんに回答をリクエストしました。###>コピーしたらペーストしますよね?コピー&ペーストは、1文でできます。http://officetanaka.net/excel/vba/cell/cell09.htmなので、.Copy rng1.Cells(j)がコピーしているところ。>塗りつぶしたセルを削除する指示が見当たらないのに、>新規シートにはコピーされないもともと↓のステップでコピー対象から外されています。If .Value <> "" And .Interior.ColorIndex = xlColorIndexNone Then>回答頂いた質問へも追記しましたURLを示してください。ナイス0
###解説ありがとうございます。おかげさまで全体の流れがつかめました。あとは、この作業を、下に続いている表に続けることができれば完璧なのですが、方法が思いつきません。表は昨日の質問に画像があります。昨日回答して頂いた質問のURLです。https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q112016446...よろしくお願いします。
###迅速にご対応いただいて、感謝いたしております。買いて頂いたマクロを、もっとすんなり読めるように、、、、できれば自力で書けるように、もっと勉強します!ありがとうございました。

 

TAG