Excel VBA質問箱 IV

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

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


57555 / 76732 ←次へ | 前へ→

【23913】Re:教えてください。。
回答  Jaka  - 05/4/7(木) 12:57 -

引用なし
パスワード
   こんにちは。

こんな感じでいいのでしょうか?
ループさせようと思いましたが、貼り付け先が同じなので意味がありません。
一応処理1回だけの意味無しループの形で残しました。

Sub 統合()

Sheets("sheet1").Range("a2:m200").Clear

For i = 1 To 1
  NO = Format(i, "00")
  Workbooks.Open FileName:="\\・・・\・・・\・・・\売上" & NO & ".SLK"
  Range("a2:m300").Copy

  With Workbooks("統合.xls").Sheets("sheet1")
    .Range("a2").PasteSpecial
    .Range("a2:m300").NumberFormatLocal = "G/標準"

    EdR = .Range("a65536").End(xlUp).Row
    .Range("N2") = 1
    .Range("N2:N" & EdR).DataSeries Rowcol:=xlColumns, Step:=1
    
  End With
  Workbooks("売上" & NO & ".SLK").Close
Next
End Sub
2 hits

【23910】教えてください。。 なつみ 05/4/7(木) 11:59 質問
【23913】Re:教えてください。。 Jaka 05/4/7(木) 12:57 回答
【23916】Re:教えてください。。 なつみ 05/4/7(木) 13:57 質問
【23917】Re:教えてください。。 Jaka 05/4/7(木) 14:06 回答
【23928】Re:教えてください。。 kazu 05/4/7(木) 20:43 発言
【23936】Re:教えてください。。 なつみ 05/4/8(金) 8:57 質問
【23937】Re:教えてください。。 ウッシ 05/4/8(金) 10:00 回答
【23951】Re:教えてください。。 なつみ 05/4/8(金) 15:22 質問
【23952】Re:教えてください。。 ウッシ 05/4/8(金) 15:29 回答
【23953】Re:教えてください。。 なつみ 05/4/8(金) 15:47 お礼

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