Excel VBA質問箱 IV

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

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


38211 / 76732 ←次へ | 前へ→

【43662】Re:空白のセルに自動で貼り付け
発言  かみちゃん  - 06/10/22(日) 11:04 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> 2が空白の場合1の値を3が空白の場合1値をを4が空白でないならそのままで5が
> 空白なら4の値を...といったかたちでフロー制御したい

以下のSample1、Sample2のどちらでもできます。
なお、フロー制御が目的ならば、Sample2のコードは、おすすめしません。
あと、どちらのコードも、A列の最終行の値より下には、転記しませんので、注意
してください(最大行まで転記するわけではないと思いますので)

Sub Sample1()
 Dim LastCell As Range
 Dim c As Range
 Dim valData
 
 Set LastCell = Cells(Rows.Count, 1).End(xlUp)
 
 For Each c In Range("A1", LastCell)
  If c.Value = "" Then
   c.Value = valData
  Else
   valData = c.Value
  End If
 Next
 MsgBox "終了!!"
End Sub

Sub Sample2()
 Dim LastCell As Range
 Dim c As Range
 
 Set LastCell = Cells(Rows.Count, 1).End(xlUp)
 For Each c In Range("A1", LastCell).SpecialCells(xlCellTypeConstants, 3)
  If c.Address <> LastCell.Address Then
   Range(c, c.End(xlDown).Offset(-1)).Value = c.Value
  End If
 Next
 MsgBox "終了!!"
End Sub

0 hits

【43661】空白のセルに自動で貼り付け 加藤 06/10/22(日) 10:53 回答
【43662】Re:空白のセルに自動で貼り付け かみちゃん 06/10/22(日) 11:04 発言
【43693】Re:空白のセルに自動で貼り付け Help me!! 06/10/23(月) 11:09 質問
【43696】Re:空白のセルに自動で貼り付け かみちゃん 06/10/23(月) 12:00 発言
【43730】Re:空白のセルに自動で貼り付け Help me!! 06/10/24(火) 8:14 お礼
【43718】Re:空白のセルに自動で貼り付け Kein 06/10/23(月) 16:35 発言
【43731】Re:空白のセルに自動で貼り付け Help me!! 06/10/24(火) 8:33 お礼
【43738】Re:空白のセルに自動で貼り付け Kein 06/10/24(火) 13:38 発言

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