rouber590324

¥ÎVBA¦p¤U

Sub TEST()
Sheet1.[B2:IV65536].ClearContents
X = Sheet1.Cells(1, Columns.Count).End(xlToLeft)
Y = Sheet1.Cells(2, Columns.Count).End(xlToLeft)
For M = 2 To X
If Sheet1.Cells(1, M) - 9 > 0 Then
  Sheet1.Cells(2, Y + 1) = Sheet1.Cells(1, M)
    Y = Y + 1
  End If
  Next
End Sub