Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8903 / 76732 ←次へ | 前へ→

【73397】Re:for〜nextで繰り返したい
発言  UO3  - 13/1/4(金) 21:18 -

引用なし
パスワード
   ▼山中成利 さん:

こんばんは

転記元のシート名を"Sheet1"にしてあります。
Sample1 は 1〜100 を。Sample2 は data.xls 側のデータ行数分。
そして Sample3 は、もしかしたら、こういうこと? というコードです。

Sub Sample1()
  Dim i As Long
  Dim n As Long
  Dim shT As Worksheet
  
  Set shT = Workbooks("calculation.xls").Sheets("data2")
  shT.Cells.ClearContents   'コピー前にコピー先をクリア
  
  n = 100   'コピー行数指定
  
  For i = 1 To 100   '1行目から100行目まで
    shT.Rows(i).Value = Workbooks("data.xls").Sheets("Sheet1").Rows(i).Value
  Next
  
End Sub

Sub Sample2()
  Dim i As Long
  Dim n As Long
  Dim shT As Worksheet
  
  Set shT = Workbooks("calculation.xls").Sheets("data2")
  shT.Cells.ClearContents   'コピー前にコピー先をクリア
  
  With Workbooks("data.xls").Sheets("Sheet1")
  
    n = .UsedRange.Row + .UsedRange.Rows.Count - 1 'data.xls側のデータ最終行番号
  
    For i = 1 To n   '1行目から最終行まで
      shT.Rows(i).Value = Workbooks("data.xls").Sheets("Sheet1").Rows(i).Value
    Next
    
  End With
  
End Sub

Sub Sample3()
  
  Workbooks("data.xls").Sheets("Sheet1").Cells.Copy _
    Workbooks("calculation.xls").Sheets("data2").Range("A1")
  
End Sub

262 hits

【73395】for〜nextで繰り返したい 山中成利 13/1/4(金) 20:36 質問
【73397】Re:for〜nextで繰り返したい UO3 13/1/4(金) 21:18 発言
【73398】Re:for〜nextで繰り返したい UO3 13/1/4(金) 21:24 発言
【73399】Re:for〜nextで繰り返したい 13/1/5(土) 9:02 回答

8903 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free