|
▼ちいぱぱ さん:
>途中に空白がある場合エラーを出して(空白がありますなど)貼り付けを前面的に
>しないようにするにはどうすればよいですか?
こんなふうで
Yesで終了いいえで継続です。
Sub Macro2()
Dim Dic As Object
Dim v As Variant
Dim i As Long
Dim flg As Boolean
With Worksheets("Sheet1")
v = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
End With
Set Dic = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(v)
If v(i, 1) = "" Then
If MsgBox("空白行があります。処理を中止しますか?", vbYesNo) = vbYes Then
flg = True
Exit For
End If
End If
Dic(v(i, 1)) = Empty
Next
If flg Then Exit Sub
v = Dic.Keys
With Worksheets("Sheet2")
.Columns(1).ClearContents
.Range("A1").Resize(UBound(v) + 1).Value = Application.Transpose(v)
End With
End Sub
|
|