Для каждого столбца создайте уникальную рабочую книгу

Question

У меня есть лист Excel, и я хочу, чтобы каждый столбец хранился в отдельной книге.

Zone    State
North   Punjab
North   Haryana
South   Kerala
South   Chennai

O / p: должно быть две книги Excel с зоной в одной книге и State в другой

С помощью этого кода я могу копировать содержимое на новый лист в существующей книге, но не в новой.

Sub CopyUnique()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Main")
    Set s2 = Sheets("Count")
    s1.Range("B:B").Copy s2.Range("A1")
    s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Answer 1

См. Ниже код:

Sub CopyUnique()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Main")
    Set s2 = Sheets("Count")
    s1.Range("B:B").Copy s2.Range("A1")
    s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo


    s2.Move

    ActiveWorkbook.SaveAs ("C:\--------\Desktop\Test\New.xlsx")

    'If you want close that workbook
    ActiveWorkbook.Close True

End Sub