Плохо: vbaquerry нужны предложения - PullRequest
Новая
       43

Плохо: vbaquerry нужны предложения

0 голосов
/ 11 октября 2019

Мне нужно ваше предложение для VBA. У меня есть несколько столбцов. Один столбец - категория продукта. Он состоит из A, B, C, D. А другой столбец - это подкатегория продукта, которая состоит из

A001,A002,d001A003,A345,c563,B245,B123,B652,C124,d1257,d5337

и т. Д. Теперь задача под рукой - мне нужно создать новые рабочие книги для категорий A, B, C, D и под рабочей книгой A, должны быть созданы форшетки со всеми подкатегориями с буквой A в виде Like (A.xlsx - это имя файла ирабочие листы должны быть названы как A103, A462, A163) соответственно. Так что любой может направить меня через правильный код в VBA, чтобы я мог выполнить эту задачу. Пожалуйста, пройдите код, который я использовал ниже 

      Sub splitandfiltersheet()

Dim Splitcode As Range

vcolumn = InputBox("Please select which column to open(i.e. A,B,C,D) you would like to split by", "Column selection")

Columns(vcolumn).Copy
Sheets.Add
ActiveSheet.Name = "_Summary"
Range("A1").PasteSpecial
Columns("A").RemoveDuplicates Columns:=1, Header:=xlYes
Sheets("Sales Data").Select
Set Splitcode = Range("Splitcode")

For Each cell In Splitcode
Sheets("Sales Data").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = cell.Value

With ActiveWorkbook.Sheets(cell.Value).Range("Sales_Data")
.AutoFilter field:=3, Criteria1:="<>" & cell.Value, Operator:=xlFilterValues
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With

ActiveSheet.AutoFilter.ShowAllData
Next cell

End Sub

, этот код дал мне вывод на том же листе, где мои данныеприсутствует. но я хочу создать новую рабочую таблицу с именем «A» и добавить все подкатегории как («A102, A344, A1234, A654») в рабочие листы A и добавить данные «A102» в рабочую книгу «A"с именем листа" A102 "

...