Excel VBA質問箱 IV

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

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


59134 / 76732 ←次へ | 前へ→

【22311】Re:範囲を指定してセルに文字を入力
回答  ponpon  - 05/2/15(火) 20:48 -

引用なし
パスワード
   ▼イオン さん:
>こんにちは。
>
>ブックの複数セルに特定の文字を入力したいのですが、
>下記のように J列にもともと何かしら記入がある行に対して
>隣のK列のセルに”承認”という文字を入力するようにする
>ようなマクロを作成したいと考えています。 
>
>
>  J列   K列
>
>5  木村   承認
>6  伊藤   承認
>7  田中  承認
>8 
>9
>.
>.
>.
>
>何かよい方法があるでしょうか?
>初心者なので恐縮ですが 教えていただけるよう
>お願いいたします。
ponponです。私も初心者です。
これでもいけると思います。

Sub test()
  Dim i As Long
  With Sheets("sheet1")
    For i = 1 To .Range("j65536").End(xlUp).Row
     If .Cells(i, "j").Value <> "" Then
       .Cells(i, "j").Offset(, 1).Value = "承認"
     End If
    Next
  End With

End Sub

0 hits

【22308】範囲を指定してセルに文字を入力 イオン 05/2/15(火) 19:27 質問
【22309】Re:範囲を指定してセルに文字を入力 かみちゃん 05/2/15(火) 20:30 回答
【22310】Re:範囲を指定してセルに文字を入力 ichinose 05/2/15(火) 20:33 発言
【22311】Re:範囲を指定してセルに文字を入力 ponpon 05/2/15(火) 20:48 回答
【22313】Re:範囲を指定してセルに文字を入力 イオン 05/2/15(火) 21:21 お礼
【22688】Re:範囲を指定してセルに文字を入力 イオン 05/2/28(月) 10:43 質問
【22699】Re:範囲を指定してセルに文字を入力 ponpon 05/2/28(月) 20:02 回答
【22701】Re:範囲を指定してセルに文字を入力 イオン 05/2/28(月) 20:14 お礼

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