You do not need a loop: Sub test() Dim r As Range, ary Set r = Sheets("Sheet1").Range("A1:D1") ary = Application.Transpose(Application.
確定! 回上一頁