Excel VBA質問箱 IV

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

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


6779 / 76735 ←次へ | 前へ→

【75553】Re:ループ→転記→ループ→転記
発言  γ  - 14/5/15(木) 23:09 -

引用なし
パスワード
   それではこういうことですか?

Sub test2()
  Dim i As Long
  Dim x As Long
  Dim y As Long
  Dim r As Range
  Dim c As Range

  x = Application.InputBox(prompt:="先頭の番号を入力してください")
  y = Application.InputBox(prompt:="最終の番号を入力してください")

  For i = x To y
    '>3列目の3行目からです。(him氏)
    Worksheets("Sheet1").Range("B4").Value _
      = Worksheets("Sheet3").Cells(i + 2, 3).Value

    '> 正確にはC30:C40,D30:D40,E30:E40までを転記させたいです。(him氏)
    'というと、こういうことでOK?
    Worksheets("Sheet1").Range("C30:F40").Copy

    'A列のデータあり最終行の次の行に、値のみ貼り付ける
    With Worksheets("Sheet2")
      Set r = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
    End With
    r.PasteSpecial Paste:=xlPasteValues

    '貼り付けたあとの各セルについて、0 なら 消去 する
    For Each c In r.Resize(11, 4)
      If c.Value = 0 Then
        c.ClearContents
      End If
    Next
  Next
End Sub

1 hits

【75538】ループ→転記→ループ→転記 him 14/5/11(日) 23:48 質問
【75539】Re:ループ→転記→ループ→転記 γ 14/5/12(月) 20:09 発言
【75545】Re:ループ→転記→ループ→転記 him 14/5/13(火) 21:28 回答
【75546】Re:ループ→転記→ループ→転記 γ 14/5/13(火) 22:16 発言
【75550】Re:ループ→転記→ループ→転記 him 14/5/15(木) 2:08 質問
【75551】Re:ループ→転記→ループ→転記 γ 14/5/15(木) 6:18 発言
【75553】Re:ループ→転記→ループ→転記 γ 14/5/15(木) 23:09 発言
【75540】Re:ループ→転記→ループ→転記 こたつねこ 14/5/12(月) 22:41 回答
【75544】Re:ループ→転記→ループ→転記 him 14/5/13(火) 21:23 お礼
【75552】Re:ループ→転記→ループ→転記 him 14/5/15(木) 21:47 質問
【75554】Re:ループ→転記→ループ→転記 こたつねこ 14/5/16(金) 21:37 回答
【75570】Re:ループ→転記→ループ→転記 him 14/5/18(日) 17:40 お礼
【75573】Re:ループ→転記→ループ→転記 γ 14/5/18(日) 22:27 発言

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