Excel VBA質問箱 IV

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

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


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

1973 / 76807

←次へ　｜　前へ→


	【80479】Re:行のデータをクリアして1行づつ繰り上げたい

ノンボ - 19/2/17(日) 20:39 -


	引用なし

	パスワード

▼ピンクさん：
>参考に
>Sub Test6()
>　　Dim myRow As Long, i As Long, j As Long
>　　myRow = 2: j = 9
>　　Do Until myRow > 10
>　　　　If Cells(myRow, "B").Value = 0 Or Cells(myRow, "B").Value = "" Then
>　　　　　　myRow = myRow + 1
>　　　　ElseIf Cells(myRow, "B").Value > 0 And Cells(myRow, "U").Value > 0 Then
>　　　　　　myRow = myRow + 1
>　　　　ElseIf Cells(myRow, "U").Value = 0 Or Cells(myRow, "U").Value = "" Then
>　　　　　　For i = myRow To j
>　　　　　　　　Cells(i + 1, 1).Resize(, 23).Copy Cells(i, 1)
>　　　　　　Next
>　　　　　　Cells(j + 1, 1).Resize(, 23).ClearContents
>　　　　　　Cells(j + 1, "G").FormulaR1C1 = "=RC[-5]*8%"
>　　　　　　Cells(j + 1, "K").FormulaR1C1 = "=RC[-9]+RC[-4]"
>　　　　　　Cells(j + 1, "U").FormulaR1C1 = "=RC[-10]-RC[-4]"
>　　　　　　j = j - 1
>　　　　End If
>　　Loop
>　　MsgBox "終わり"
>End Sub

ピンクさん、参考のコードをかいていただきましてたいへんありがとうございました。とてもうまくいきました。もっと勉強するように努力します。
本当にありがとうございました。

1 hits

▼

【80438】行のデータをクリアして1行づつ繰り上げたい ノンボ 19/2/16(土) 8:11