Excel VBA質問箱 IV

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

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


43018 / 76735 ←次へ | 前へ→

【38778】Re:セルの下にまとまって入れ込む
回答  Kein  - 06/6/9(金) 21:48 -

引用なし
パスワード
   >空の行
は、C列にあるということでしょーか ? それならそこを埋めてしまわないと
うまくいきません。以下のように変更して下さい。

Sub MyData_Copy2()
  Dim MyR As Range, C As Range
  Dim GetR As Variant

  Application.ScreenUpdating = False
  On Error Resume Next
  With Worksheets("A")
   With .Range("C2", .Range("C65536").End(xlUp))
     With .SpecialCells(4)
      .FormulaR1C1 = "=R[-1]C"
      .Value = .Value
     End With
     On Error GoTo 0: If Err.Number <> 0 Then Err.Clear
     With .Offset(, 26)
      .Formula = "=IF($C1<>$C2,1,"""")"
      .SpecialCells(3, 1).EntireRow.Insert xlShiftDown
      .ClearContents
     End With
   End With
   Set MyR = .Range("C1", .Range("C65536").End(xlUp)) _
   .Offset(, 4).SpecialCells(2)
  End With
  With Worksheets("総合")
   For Each C In MyR.Areas  
     GetR = Application _
     .Match(C.Range("A1").Value, .Range("H:H"), 0)
     If Not IsError(GetR) Then
      C.Copy .Cells(GetR, 8)
     End If
   Next
  End With
  With Worksheets("A")
   .Range("C1", .Range("C65536").End(xlUp)).SpecialCells(4) _
   .EntireRow.Delete xlShiftUp
  End With
  Application.ScreenUpdating = True: Set MyR = Nothing
End Sub
0 hits

【38626】セルの下にまとまって入れ込む ごまみそ 06/6/7(水) 16:12 質問
【38628】Re:セルの下にまとまって入れ込む Statis 06/6/7(水) 16:24 発言
【38630】Re:セルの下にまとまって入れ込む ごまみそ 06/6/7(水) 16:34 発言
【38632】Re:セルの下にまとまって入れ込む Kein 06/6/7(水) 16:38 回答
【38633】Re:セルの下にまとまって入れ込む Kein 06/6/7(水) 16:41 発言
【38658】Re:セルの下にまとまって入れ込む ごまみそ 06/6/8(木) 8:19 質問
【38648】Re:セルの下にまとまって入れ込む ごまみそ 06/6/7(水) 18:44 質問
【38657】Re:セルの下にまとまって入れ込む ごまみそ 06/6/8(木) 8:13 質問
【38661】Re:セルの下にまとまって入れ込む Statis 06/6/8(木) 9:27 回答
【38688】Re:セルの下にまとまって入れ込む Kein 06/6/8(木) 15:30 回答
【38757】Re:セルの下にまとまって入れ込む ごまみそ 06/6/9(金) 15:42 質問
【38778】Re:セルの下にまとまって入れ込む Kein 06/6/9(金) 21:48 回答
【38842】Re:セルの下にまとまって入れ込む ごまみそ 06/6/12(月) 9:34 質問
【38844】Re:セルの下にまとまって入れ込む ごまみそ 06/6/12(月) 11:16 発言
【38847】Re:セルの下にまとまって入れ込む Kein 06/6/12(月) 14:20 回答
【38876】Re:セルの下にまとまって入れ込む ごまみそ 06/6/13(火) 12:42 お礼

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