chia một sheet thành nhiều sheet và từ mỗi sheet đó chia thêm cột

[kechuong]

mình có 1 file có 100 dòng chia thành 5 sheet mỗi sheet là 20 dòng, mình muốn từ mỗi sheet đó chia thành 5 cột mỗi cột là 20 dòng, rất mong nhận được giúp đỡ từ mọi người ạ !

 

[quick87]

mình có 1 file có 100 dòng chia thành 5 sheet mỗi sheet là 20 dòng, mình muốn từ mỗi sheet đó chia thành 5 cột mỗi cột là 20 dòng, rất mong nhận được giúp đỡ từ mọi người ạ !

Bạn dùng thử file đính kèm nhé!

 

[kechuong]

Bạn dùng thử file đính kèm nhé!

mình cảm ơn bạn nha! nhưng mình muốn 100 dòng chia thành 5 sheet trước, rùi trong 5 sheet này mới chia ra thành 5 cột, mỗi cột 4 dòng, rất mong bạn giúp đỡ thêm !

 

[quick87]

mình cảm ơn bạn nha! nhưng mình muốn 100 dòng chia thành 5 sheet trước, rùi trong 5 sheet này mới chia ra thành 5 cột, mỗi cột 4 dòng, rất mong bạn giúp đỡ thêm !

Bạn xem file đính kèm nhé.

 

[kechuong]

Bạn xem file đính kèm nhé.

mình cám ơn bạn nhiều nha! đúng ý mình lun rồi, thật là 1 tuyệt phẩm !

 

[kechuong]

Bạn xem file đính kèm nhé.

bạn ơi ! mình còn 1 trường hợp : ví dụ mình có 89 dòng chia thành 5 sheet trước, rùi trong 5 sheet này mới chia ra thành 5 cột, mỗi cột 4 dòng, nhưng sheet 5 chỉ có 9 dòng và mình muốn sheet 5 sẽ là 3 cột thôi, hai cột 4 dòng, một cột 1 dòng thay vì là 5 cột như máy sheet trước, rất mong bạn giúp đỡ thêm !

 

[quick87]

bạn ơi ! mình còn 1 trường hợp : ví dụ mình có 89 dòng chia thành 5 sheet trước, rùi trong 5 sheet này mới chia ra thành 5 cột, mỗi cột 4 dòng, nhưng sheet 5 chỉ có 9 dòng và mình muốn sheet 5 sẽ là 3 cột thôi, hai cột 4 dòng, một cột 1 dòng thay vì là 5 cột như máy sheet trước, rất mong bạn giúp đỡ thêm !

Ngoài trường hợp này, bạn còn trường hợp nào khác không?

 

[kechuong]

Ngoài trường hợp này, bạn còn trường hợp nào khác không?

không ạ ! vì đôi khi có số dư nên mới sinh ra trường hợp như trên !

 

[quick87]

không ạ ! vì đôi khi có số dư nên mới sinh ra trường hợp như trên !

Bạn chạy và kiểm tra kết quả nhé!

 

[kechuong]

Bạn chạy và kiểm tra kết quả nhé!

Bạn ơi ! cho mình làm phiền bạn thêm xíu nữa nha ! ý mình là : ví dụ tăng thêm 4 dòng là 93 dòng thì sheet 5 là 13 dòng và mình muốn sheet 5 sẽ là 4 cột , ba cột 4 dòng(vì thống nhất tất cả các cột đều 4 dòng) , một cột 1 dòng , tức là số dư sẽ tự động lùi về sau 1 cột!

 

[quick87]

Bạn ơi ! cho mình làm phiền bạn thêm xíu nữa nha ! ý mình là : ví dụ tăng thêm 4 dòng là 93 dòng thì sheet 5 là 13 dòng và mình muốn sheet 5 sẽ là 4 cột , ba cột 4 dòng(vì thống nhất tất cả các cột đều 4 dòng) , một cột 1 dòng , tức là số dư sẽ tự động lùi về sau 1 cột!

Bạn chạy lại file đính kèm nhé.

 

[kechuong]

Bạn chạy lại file đính kèm nhé.

Đúng ý mình mong muốn luôn rồi! cám ơn bạn nhiều nha!

 

[thnghiachau]

Tôi nể phục bạn về tính nhẫn nại...
nếu là tôi thì đã "ra đi" từ lúc này rồi...

không ạ ! vì đôi khi có số dư nên mới sinh ra trường hợp như trên !

và nhất là khi lại có thêm...

Bạn ơi ! cho mình làm phiền bạn thêm xíu nữa nha ! ý mình là : ví dụ tăng thêm 4 dòng là 93 dòng thì sheet 5 là 13 dòng và mình muốn sheet 5 sẽ là 4 cột , ba cột 4 dòng(vì thống nhất tất cả các cột đều 4 dòng) , một cột 1 dòng , tức là số dư sẽ tự động lùi về sau 1 cột!

 

[VetMini]

Bạn chạy lại file đính kèm nhé.

Theo tôi hiểu thì căn bản chia ở đây là phân mảng 1 chiều thành 3 chiều.
Với bài toán bình thường thì công thức phân khá dễ: Trang (sheet) > Dòng > Cột
Riêng bài này thì hơi đảo lộn chút: Trang > Cột > Dòng

Giả dụ bạn đã copy dữ liệu vào mảng a (copy từ sheet thì là mảng 2 chiều, chiều thứ hai chỉ có 1 cột)

Const SOCOT = 5
Const SODONG = 4
Dim b(1 To SODONG, 1 To SOCOT) As String
soDuLieu = UBound(a) ' tổng số dữ liệu
iA = 0 ' đếm dòng mảng a
For trang = 1 To (soDuLieu - 1) \ (SOCOT * SODONG) + 1 ' công thức tính số trang
  For cot = 1 To SOCOT
    For dong = 1 To SODONG
      iA = iA + 1
      If iA <= soDuLieu Then
        b(dong, cot) = a(iA, 1)
      Else
        b(dong, cot) = ""
      End If
    Next dong
  Next cot
  Sheets("tên sheet" & trang).Range("A1").Resize(SODONG, SOCOT) = b ' chép mảng xuống sheet
Next trang

.

 

[quick87]

Cảm ơn anh @thnghiachau và bác @VetMini đã góp ý và hướng dẫn ạ!

 

[kechuong]

Tôi nể phục bạn về tính nhẫn nại...
nếu là tôi thì đã "ra đi" từ lúc này rồi...


và nhất là khi lại có thêm...

Theo tôi hiểu thì căn bản chia ở đây là phân mảng 1 chiều thành 3 chiều.
Với bài toán bình thường thì công thức phân khá dễ: Trang (sheet) > Dòng > Cột
Riêng bài này thì hơi đảo lộn chút: Trang > Cột > Dòng

Giả dụ bạn đã copy dữ liệu vào mảng a (copy từ sheet thì là mảng 2 chiều, chiều thứ hai chỉ có 1 cột)

Const SOCOT = 5
Const SODONG = 4
Dim b(1 To SODONG, 1 To SOCOT) As String
soDuLieu = UBound(a) ' tổng số dữ liệu
iA = 0 ' đếm dòng mảng a
For trang = 1 To (soDuLieu - 1) \ (SOCOT * SODONG) + 1 ' công thức tính số trang
  For cot = 1 To SOCOT
    For dong = 1 To SODONG
      iA = iA + 1
      If iA <= soDuLieu Then
        b(dong, cot) = a(iA, 1)
      Else
        b(dong, cot) = ""
      End If
    Next dong
  Next cot
  Sheets("tên sheet" & trang).Range("A1").Resize(SODONG, SOCOT) = b ' chép mảng xuống sheet
Next trang

.

Code của bạn cũng rất hữu ích cho bài toán này, cám ơn bạn nhiều nha !