|
▼Yuki さん:
>▼ちいぱぱ さん:
>>お世話になります
>>重複しているSheet1から重複を除外して特定のセルから貼り付けをさせたい
>
>別案で
>フィール名は外して値を張り付けです。
>Sub Macro2()
> Dim Dic As Object
> Dim v As Variant
> Dim i As Long
>
> With Worksheets("Sheet1")
> v = .Range("A1").CurrentRegion.Resize(, 1).Value
> End With
> Set Dic = CreateObject("Scripting.Dictionary")
> For i = 2 To UBound(v)
> Dic(v(i, 1)) = Empty
> Next
> v = Dic.Keys
> With Worksheets("Sheet2")
> .Columns(1).ClearContents
> .Range("A1").Resize(UBound(v) + 1).Value = Application.Transpose(v)
> End With
>End Sub
この状態だと途中に空白が一列でもある場合以下は表示されませんよね?
回避方法ありますか?
|
|