|
▼イオン さん:
こんばんは。
>こんにちは。
>
>ブックの複数セルに特定の文字を入力したいのですが、
>下記のように J列にもともと何かしら記入がある行に対して
>隣のK列のセルに”承認”という文字を入力するようにする
>ようなマクロを作成したいと考えています。
>
>
> J列 K列
>
>5 木村 承認
>6 伊藤 承認
>7 田中 承認
>8
>9
>.
>.
>.
>
>何かよい方法があるでしょうか?
>初心者なので恐縮ですが 教えていただけるよう
>お願いいたします。
これは、いろんな方法がありますから、
'===============================================
Sub test()
On Error Resume Next
Dim rng As Range
Set rng = Range("j:j").SpecialCells(xlCellTypeConstants)
If Err.Number = 0 Then
rng.Offset(0, 1).Value = "承認"
End If
On Error GoTo 0
End Sub
他の方法も考えてみて下さいネ!!
コードは、アクティブシートに対して処理しています。
|
|