function test(){
col=1
t_row=2
main_name=ActiveSheet.Name
row1=ActiveSheet.UsedRange.Rows.Count
one(col,row1)
Sheets.Item(main_name).Activate()
}
function one(){
list=[]
for(let i=t_row+1;i<row1+1;i++){
let v=Cells.Item(i,col).Value2
if(!list.includes(v)){
list.push(v)
Worksheets.Add()
ActiveSheet.Name=v
for(j=1;j<t_row+1;j++){
copy(v,j)
}
copy(v,i)
Sheets.Item(main_name).Activate()
}
else{
copy(v,i)
Sheets.Item(main_name).Activate()
}
}
}
function copy(v,p){
Sheets.Item(main_name).Rows.Item(p).Copy()
Sheets.Item(""+v).Activate()
let rowx=ActiveSheet.UsedRange.Rows.Count
//Rows(rowx).Insert(xlShiftDown, undefined)
if(p<t_row+1){
Range("A"+p).PasteSpecial(xlPasteAll)
}
else{
Range("A"+(rowx+1)).PasteSpecial(xlPasteValuesAndNumberFormats)
}
}