| |
▼ponpon さん：
こんにちわ。
以前、下記の回答をいただきありがとうございました。
コードの内容について質問なのですが、
> If .Cells(i, "j").Value <> "" Then
> .Cells(i, "j").Offset(, 1).Value = "承認"
これは、J列が空欄ではないときに J＋１列に”承認”を入力ということでしょうか？
質問ばかりで申し訳ございませんが よろしくお願いいたします。
>>
>>ブックの複数セルに特定の文字を入力したいのですが、
>>下記のように 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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
