For Each a In Range([A2], [A65536].End(xlUp))
Sheets("記錄").[A65536].End(xlUp).Offset(1, 0).Resize(, 12) = a.Resize(, 12).Value
a.Resize(, 1) = ""
a.Offset(, 2) = "" 「這是向右清空2格?」
Next
End Sub作者: Hsieh 時間: 2010-6-22 10:48
For Each a In Range([A2], [A65536].End(xlUp))
Sheets("記錄").[A65536].End(xlUp).Offset(1, 0).Resize(, 12) = a.Resize(, 12).Value
a.Resize(, 1) = ""作者: Hsieh 時間: 2010-6-22 11:20
Offset 屬性
請參閱套用至範例特定套用至 Range 物件時用 Offset 屬性。
傳回 Range 物件,用以代表某個指定區域以外的範圍。唯讀。
expression.Offset(RowOffset, ColumnOffset)
expression 必選。該運算式傳回 Range 物件。