|
新人ですのでよろしくご指導お願いします。
内容は、U列にある1〜10桁の同じ数字を合計し数字別に集計する作業です。
プログラムの内容は、AU列にエラーを発生させ、その数を集計別シートへ転記させる内容です
On Error Resume Next
Set sen = Sheets("線")
Set hen = Sheets("編集")
hen.Select
Range("A1").Value = "数字"
Range("B1").Value = "合計"
For i = 1 To 500
sen.Select
Columns("AF:AF").Delete
Range("AF13").FormulaArray = "=IF(U13=$U$13,na(),"""")" ' 作ったときは動作したのですがこの部分でおかしくなりました
Range("AF13").Select
Selection.AutoFill Destination:=Range("AF13:AF1500"), Type:=xlFillDefault
Range("AF2").FormulaArray = "=countif(af12:af1500,na())"
Selection.AutoFill Destination:=Range("F12:F400"), Type:=xlFillDefault
Range("AF11:F400").SpecialCells(xlCellTypeFormulas, 2).Select
Range("AF2").Copy
Range("AF1").PasteSpecial Paste:=xlValues
sen.Range("AF1").Copy
hen.Select
Range("B65536").End(xlUp).Offset(1).Select
ActiveSheet.Paste
sen.Range("U13").Copy
Range("A65536").End(xlUp).Offset(1).Select
ActiveSheet.Paste
sen.Select
Columns("AF:AF").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.EntireRow.Delete
Columns("AF:AF").Delete
Next
i = i + 1
|
|