Mỗi dòng là 1 sheet? --> 34 sheets?
1 cách:
Dạ đúng rồi đó anh,đúng ra là 60 hàng tương đương 60 sheet đó ạ,em đã copy và paste hết 1 log số rồi,nhưng phê quá vì vậy mới lên đây nhờ các cao nhân chỉ bảo ạ
Cái này dùng code nhanh thui, nhưng tên sheet sẽ như thế nào? hay chỉ để mặc định sheet1,2,3.....?
Vậy thử với code này
Sub tach()
Dim arr(), i As Integer
For i = 1 To Range("B65000").End(3).Row
arr = Sheets("Sheet 1").Range("B" & i & ":Q" & i).Value
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Range("B2:B17") = Application.WorksheetFunction.Transpose(arr)
Next
End Sub
Alt + f11/insert module/ paste code/ F5 (Run)Cho em hỏi ngô síu cái này mình chép vào đâu ạ
Dữ liệu ban đầu của bạn từ cột B đến cột Q, nếu bạn thay đổi cột thì thay dòng này thui, còn về hàng thì ko phải sủa code.
Bạn muốn trả về kết qur như thế nào?
thử thế này vậy
Sub tach()
Dim arrdt(1 To 9, 1 To 1), arrseri(1 To 9, 1 To 1), i, j As Integer
With Sheets("Sheet 1")
For i = 2 To .Range("B65000").End(3).Row
For j = 2 To 18 Step 2
arrdt(j / 2, 1) = .Cells(i, j)
arrseri(j / 2, 1) = .Cells(i, j + 1)
Next
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Range("B2").Resize(9, 1) = arrdt
ActiveSheet.Range("C2").Resize(9, 1) = arrseri
Next
End With
End Sub
,sẳn đây cho em hỏi nếu muôn tăng thêm dòng hoặc cột thì công thức trên mình sửa chổ nào anh quangluu1989
Vậy thì dùng code tổng quát này vậy, ko cần quan tâm có bao nhiêu dòng, bao nhiêu cộtEm cám ơn nhiều ạ.Thật tuyệt vời
Sub tach()
Dim arrdt(), arrseri(), i, j, lastcol As Integer
With Sheets("Sheet 1")
lastcol = Cells(2, Columns.Count).End(xlToLeft).Column
ReDim arrdt(1 To (lastcol - 1) / 2, 1 To 1), arrseri(1 To (lastcol - 1) / 2, 1 To 1)
For i = 2 To .Range("B65000").End(3).Row
For j = 2 To (lastcol - 1) Step 2
arrdt(j / 2, 1) = .Cells(i, j)
arrseri(j / 2, 1) = .Cells(i, j + 1)
Next
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Range("B2").Resize((lastcol - 1) / 2, 1) = arrdt
ActiveSheet.Range("C2").Resize((lastcol - 1) / 2, 1) = arrseri
Next
End With
End Sub
