Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71032 / 76807

←次へ　｜　前へ→


	【10277】Re:デ－タ加工？

kein - 04/1/15(木) 13:53 -


	引用なし

	パスワード

では、こんな感じで・・

Sub Data_Move()
　 Dim x As Long, y As Long, z As Long

　 If TypeName(Selection) <> "Range" Then Exit Sub
　 With Selection
　　　If .Columns.Count > 1 Then Exit Sub
　　　x = .Column: y = .Rows.Count: z = .Row
　　　If z < 11 Then Exit Sub
　　　If x Mod 2 = 0 Then Exit Sub
　　　If x >= Cells(256).End(xlToLeft).Column Then Exit Sub
　　　If WorksheetFunction.CountA(Selection) < .Cells.Count Then
　　　　 Exit Sub
　　　End If
　　　Application.ScreenUpdating = False
　　　.Delete xlShiftUp
　 End With
　 With Cells(z, x + 1).Resize(y)
　　　.Copy Cells(65536, x).End(xlUp).Offset(1)
　　　.Delete xlShiftUp
　 End With
　 Application.ScreenUpdating = True
End Sub

1 hits

▼

【10231】デ－タ加工？ ｙｕｋｋｏ 04/1/13(火) 21:12