Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1903 / 76734 ←次へ　｜　前へ→
【80476】Re:行のデータをクリアして1行づつ繰り上げたい
回答  ピンク  - 19/2/17(日) 18:53 -
引用なし
パスワード
   参考に
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
10 hits
▼ 【80438】行のデータをクリアして1行づつ繰り上げたい ノンボ 19/2/16(土) 8:11 質問[未読]
【80441】Re:行のデータをクリアして1行づつ繰り上げ... マナ 19/2/16(土) 9:34 発言[未読]
【80443】Re:行のデータをクリアして1行づつ繰り上げ... マナ 19/2/16(土) 10:16 発言[未読]
【80445】Re:行のデータをクリアして1行づつ繰り上げ... ノンボ 19/2/16(土) 11:57 発言[未読]
【80446】Re:行のデータをクリアして1行づつ繰り上げ... マナ 19/2/16(土) 12:09 発言[未読]
【80447】Re:行のデータをクリアして1行づつ繰り上げ... マナ 19/2/16(土) 12:27 発言[未読]
【80450】Re:行のデータをクリアして1行づつ繰り上げ... ノンボ 19/2/16(土) 19:43 発言[未読]
【80452】Re:行のデータをクリアして1行づつ繰り上げ... マナ 19/2/16(土) 20:23 発言[未読]
【80453】Re:行のデータをクリアして1行づつ繰り上げ... ノンボ 19/2/16(土) 20:26 発言[未読]
【80454】Re:行のデータをクリアして1行づつ繰り上げ... マナ 19/2/16(土) 21:02 発言[未読]
【80455】Re:行のデータをクリアして1行づつ繰り上げ... ノンボ 19/2/16(土) 21:27 質問[未読]
【80451】Re:行のデータをクリアして1行づつ繰り上げ... ノンボ 19/2/16(土) 19:50 発言[未読]
【80476】Re:行のデータをクリアして1行づつ繰り上げ... ピンク 19/2/17(日) 18:53 回答[未読]≪
【80479】Re:行のデータをクリアして1行づつ繰り上げ... ノンボ 19/2/17(日) 20:39 お礼[未読]
【80459】Re:行のデータをクリアして1行づつ繰り上げ... γ 19/2/16(土) 22:23 発言[未読]
【80467】Re:行のデータをクリアして1行づつ繰り上げ... ノンボ 19/2/17(日) 8:18 発言[未読]
【80468】Re:行のデータをクリアして1行づつ繰り上げ... γ 19/2/17(日) 8:47 発言[未読]
【80469】Re:行のデータをクリアして1行づつ繰り上げ... ノンボ 19/2/17(日) 9:47 発言[未読]
【80472】Re:行のデータをクリアして1行づつ繰り上げ... γ 19/2/17(日) 11:00 発言[未読]
【80474】Re:行のデータをクリアして1行づつ繰り上げ... ノンボ 19/2/17(日) 11:35 お礼[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1903 / 76734 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free