ryskosn https://blog.hatena.ne.jp/ryskosn/ ryskosn log https://ryskosn.hatenadiary.com/ Excel memo Dim Row As Integer For Row = 57 To 114 If Range("AI" & Row).Value <> "" Then Range("AI" & Row).Select Selection.Copy Range("E" & Row).Select ActiveSheet.Paste End If Next Row Sub group8() ' データ消去 Dim resultRow, resultMaxRow As Integer Worksheets("result").Select If Range("B5").Value <> "" Then resul… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryskosn.hatenadiary.com%2Fentry%2F20131001%2F1380625043" title="繰り返しコピー - ryskosn log" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2013-10-01 19:57:23 rich https://ryskosn.hatenadiary.com/entry/20131001/1380625043 1.0 100%