Đánh số thứ tự cách dòng.

[caocat]

Em chào cả nhà GPE. Hiện em có 1 files cần đánh số thứ tự nhưng cách dòng. Để in biểu quản lý các ô để dép.
Tên cho mỗi tủ là F1, F2.
Mô tả: Các cột B4=F1-001, C4=F1-002, D4=F1-003, E4=F1-004
các số tiếp theo: B6=F1-005, C6=F1-006, D6=F1-007, E6=F1-008
Cứ thế nối tiếp cho đến F1-400 hoặc F1-500.
Mong được sự giúp đỡ từ anh, chị trong diễn đàn.
Em cảm ơn.

 

[Nhattanktnn]

Em chào cả nhà GPE. Hiện em có 1 files cần đánh số thứ tự nhưng cách dòng. Để in biểu quản lý các ô để dép.
Tên cho mỗi tủ là F1, F2.
Mô tả: Các cột B4=F1-001, C4=F1-002, D4=F1-003, E4=F1-004
các số tiếp theo: B6=F1-005, C6=F1-006, D6=F1-007, E6=F1-008
Cứ thế nối tiếp cho đến F1-400 hoặc F1-500.
Mong được sự giúp đỡ từ anh, chị trong diễn đàn.
Em cảm ơn.

Công thức tại B4, kéo sang E4 và kéo xuống:

=IF(MOD(ROW(),2)=1,"","F1-" & TEXT((ROW()-4)*2+(COLUMN()-1),"000"))

 

[snow25]

Em chào cả nhà GPE. Hiện em có 1 files cần đánh số thứ tự nhưng cách dòng. Để in biểu quản lý các ô để dép.
Tên cho mỗi tủ là F1, F2.
Mô tả: Các cột B4=F1-001, C4=F1-002, D4=F1-003, E4=F1-004
các số tiếp theo: B6=F1-005, C6=F1-006, D6=F1-007, E6=F1-008
Cứ thế nối tiếp cho đến F1-400 hoặc F1-500.
Mong được sự giúp đỡ từ anh, chị trong diễn đàn.
Em cảm ơn.

Thử code

Sub abc()
    Dim i As Long, arr(1 To 500, 1 To 4), a As Long, b As Long
    a = 1
    For i = 1 To 500
        b = (i - 1) Mod 4 + 1
        arr(a, b) = "F1-" & Format(i, "000")
        If b = 4 Then a = a + 2
    Next i
    Range("B4:E4").Resize(a).Value = arr
End Sub

 

[caocat]

Công thức tại B4, kéo sang E4 và kéo xuống:

=IF(MOD(ROW(),2)=1,"","F1-" & TEXT((ROW()-4)*2+(COLUMN()-1),"000"))

Em cảm ơn nhiều ạ.

Bài đã được tự động gộp: 20/9/22

Thử code

Sub abc()
    Dim i As Long, arr(1 To 500, 1 To 4), a As Long, b As Long
    a = 1
    For i = 1 To 500
        b = (i - 1) Mod 4 + 1
        arr(a, b) = "F1-" & Format(i, "000")
        If b = 4 Then a = a + 2
    Next i
    Range("B4:E4").Resize(a).Value = arr
End Sub

Em cảm ơn sự giúp đỡ.

 

[caocat]

Công thức tại B4, kéo sang E4 và kéo xuống:

=IF(MOD(ROW(),2)=1,"","F1-" & TEXT((ROW()-4)*2+(COLUMN()-1),"000"))

Em xin lỗi đã không nói rõ từ đầu. Do em nghĩ chạy công thức hoạc VBA ra được dãy số thì mình copy từng đoạn vào files. Nhưng nay nhiều quá. Nên đành làm phiền anh lần nữa. Em muốn chia theo từng mảng 4 cột và 13 dòng. Em đính kèm files xem giúp em nhé! Em cảm ơn.

 

[Nhattanktnn]

Em xin lỗi đã không nói rõ từ đầu. Do em nghĩ chạy công thức hoạc VBA ra được dãy số thì mình copy từng đoạn vào files. Nhưng nay nhiều quá. Nên đành làm phiền anh lần nữa. Em muốn chia theo từng mảng 4 cột và 13 dòng. Em đính kèm files xem giúp em nhé! Em cảm ơn.

Lần sau nên nói một lần luôn
Bạn bỏ trộn đi để kéo công thức, kéo xong sửa lại tiêu đề (1,2,3..):

B4=IF(OR(MOD(ROW()-2,28)=0,ISODD(ROW()),MOD(COLUMN()-1,5)=0),"","F1-" & TEXT(2*ROW()+152*INT((ROW()-4)/28)+(COLUMN()+47*INT((COLUMN()-1)/5))-9,"000"))

 

[caocat]

Lần sau nên nói một lần luôn
Bạn bỏ trộn đi để kéo công thức, kéo xong sửa lại tiêu đề (1,2,3..):

B4=IF(OR(MOD(ROW()-2,28)=0,ISODD(ROW()),MOD(COLUMN()-1,5)=0),"","F1-" & TEXT(2*ROW()+152*INT((ROW()-4)/28)+(COLUMN()+47*INT((COLUMN()-1)/5))-9,"000"))

Dạ! Em cảm ơn nhiều ạ. Rút kinh nghiệm cho lần sau.