Tình nghĩa giang hồ
Thanh sơn bất cải, lục thủy trường lưu
- Tham gia
- 29/9/20
- Bài viết
- 330
- Được thích
- 429
Chào anh em GPE, mình có một bài tập tách mỗi dòng thành một file excel.
Bài này mình thấy cũng thú vị nên gửi anh em xem hỗ trợ giúp.
Một dòng thành một file excel, tức là 10 ngàn dòng thành 10 ngàn file.
Nhờ anh em hỗ trợ giúp.
Đa tạ anh em.
À cho mình nói thêm mình cũng có thử code tách thử thì cũng tách được, nhưng mà mỗi lần dùng code này là mình phải đi đâu đó uống cafe cả buổi, rồi khi về mới thấy được kết quả. (Tức là nó không chậm, mà phải gọi là quá chậm). Nên mình mong muốn về tốc độ một tí. Cảm ơn anh em.
Sub tach_file_thanh_nhieu_file()
Dim sPath As String
sPath = ActiveWorkbook.Path
Dim wb As Workbook
Dim i, j As Long
j = 1
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("Sheet1")
For i = 1 To 10000 Step 1
Set wb = Workbooks.Add
.Cells(i, "A").Resize(1).EntireRow.Copy wb.Sheets("Sheet1").Range("A1")
wb.SaveAs Filename:=sPath & "\" & j & ".xlsx"
j = j + 1
wb.Close False
Next i
End With
Application.ScreenUpdating = True
End Sub
Bài này mình thấy cũng thú vị nên gửi anh em xem hỗ trợ giúp.
Một dòng thành một file excel, tức là 10 ngàn dòng thành 10 ngàn file.
Nhờ anh em hỗ trợ giúp.
Đa tạ anh em.
Bài đã được tự động gộp:
À cho mình nói thêm mình cũng có thử code tách thử thì cũng tách được, nhưng mà mỗi lần dùng code này là mình phải đi đâu đó uống cafe cả buổi, rồi khi về mới thấy được kết quả. (Tức là nó không chậm, mà phải gọi là quá chậm). Nên mình mong muốn về tốc độ một tí. Cảm ơn anh em.
Sub tach_file_thanh_nhieu_file()
Dim sPath As String
sPath = ActiveWorkbook.Path
Dim wb As Workbook
Dim i, j As Long
j = 1
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("Sheet1")
For i = 1 To 10000 Step 1
Set wb = Workbooks.Add
.Cells(i, "A").Resize(1).EntireRow.Copy wb.Sheets("Sheet1").Range("A1")
wb.SaveAs Filename:=sPath & "\" & j & ".xlsx"
j = j + 1
wb.Close False
Next i
End With
Application.ScreenUpdating = True
End Sub
