Excel VBA質問箱 IV

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

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


66141 / 76738 ←次へ | 前へ→

【15163】Re:セルの値の移動
回答  Asaki  - 04/6/16(水) 23:09 -

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

とりあえず、2例ほど作ってみました。
>-- 空白を無視するの貼り付け利用
Sub test1()
  Dim i  As Long

  For i = 1 To Cells(65536, 1).End(xlUp).Row Step 2
    With Cells(i + 1, 2).Resize(, 3)
      .Copy
      .Offset(-1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=True, Transpose:=False
      .ClearContents
    End With
  Next i
End Sub

>-- 配列利用
Sub test2()
  Dim i  As Long
  Dim v  As Variant

  v = Range(Cells(1, 2), Cells(65536, 1).End(xlUp).Offset(, 4)).Value
  For i = 1 To UBound(v) Step 2
    v(i, 2) = v(i + 1, 1)
    v(i, 4) = v(i + 1, 3)
    v(i + 1, 1) = ""
    v(i + 1, 3) = ""
  Next i
  Cells(1, 2).Resize(UBound(v), 4).Value = v
  Erase v
End Sub

0 hits

【15152】セルの値の移動 レイレイ 04/6/16(水) 17:01 質問
【15159】Re:セルの値の移動 IROC 04/6/16(水) 18:42 回答
【15160】Re:セルの値の移動 ichinose 04/6/16(水) 18:45 回答
【15163】Re:セルの値の移動 Asaki 04/6/16(水) 23:09 回答
【15170】できました! レイレイ 04/6/17(木) 10:23 お礼

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