|
▼Jaka さん:
>コピペのことを考えなくていいのなら。
ご指摘の通りコピペが問題になってきました。
やりたいことを具体的に書くと、
1.A列とB列の同じ行に文字が入力されたら処理する
2.A列とB列の複数行にコピペで入力されたらその行数分処理する
最初に頂いたアドバイスを元に下記のようにしてみましたが、
2.をどのようにしたらいいか分かりません。
よろしくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count = 1 Then
Select Case .Column
Case 1
If .Value <> "" And .Offset(, 1).Value <> "" Then
MsgBox "OK"
End If
Case 2
If .Value <> "" And .Offset(, -1).Value <> "" Then
MsgBox "OK"
End If
End Select
ElseIf .Count > 1 Then
'ここで処理??
End If
End With
End Sub
|
|