Ｐａｇｅ 370 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼異なるBookへのデータのコピー とも 02/11/20(水) 17:52 ┗Re:異なるBookへのデータのコピー Nakamura 02/11/21(木) 1:01 ─────────────────────────────────────── ■題名 ： 異なるBookへのデータのコピー ■名前 ： とも ■日付 ： 02/11/20(水) 17:52 -------------------------------------------------------------------------
| Excel2000です。 Workbook"A"のsheet1からsheet80まで同じ形式に入力されたデータ(項目は約50)があります。このデータをWorkbook"B"のsheet1に1行ずつ80行までコピーしようと考えています。つまり、Workbook"A"のsheet1にあるデータを1行目に順に横1列にコピーします。これをSheet80まで80回繰り返すことになります。 Set文とFor Next文で考えてみましたが、うまく動きません。 どなたか教えてください。 |
| ▼とも さん： >Excel2000です。 >Workbook"A"のsheet1からsheet80まで同じ形式に入力されたデータ(項目は約50)があります。このデータをWorkbook"B"のsheet1に1行ずつ80行までコピーしようと考えています。つまり、Workbook"A"のsheet1にあるデータを1行目に順に横1列にコピーします。これをSheet80まで80回繰り返すことになります。 >Set文とFor Next文で考えてみましたが、うまく動きません。 >どなたか教えてください。 こんばんは こう言うことかな？ Sub test() Dim i As Integer For i = 1 To 80 Workbooks("A.xls").Worksheets("Sheet" & i).Rows("1:1").Copy Workbooks("B.xls").Worksheets("Sheet1").Rows(i).PasteSpecial xlPasteAll Next i Workbooks("B.xls").Worksheets("Sheet1").Range("A1").Activate Application.CutCopyMode = False End Sub それでは |