For i As Integer = Tables("A_数据_Yahooショッピング").Rows.Count - 1 To 0 Step -1
Dim rw As Row = Tables("A_数据_Yahooショッピング").Rows(i)
Next