Cách Fill kéo dữ liệu (1 người xem)

[Quynhau]

Anh chị ơi cho em hỏi về cách Fill ô xuống ạ
Em đánh chữ NX T1-18 em muosn kéo xuống chỉ thay đổi
chữ T1 thành T2 theo thứ tự xuống nữa thành T3, T4.... thì làm sao ạ

 

[phulien1902]

Anh chị ơi cho em hỏi về cách Fill ô xuống ạ
Em đánh chữ NX T1-18 em muosn kéo xuống chỉ thay đổi
chữ T1 thành T2 theo thứ tự xuống nữa thành T3, T4.... thì làm sao ạ

Giả sử A1=NX T1-18
Vậy A2="NX"&" "&"T"&ROW()&"-18"

Hoặc:

Sub abc()
Dim i, LR
   LR = Cells(Rows.Count, 1).End(3).Row
   LR = InputBox("Nhap so")
      For i = 1 To LR
       Cells(i + 1, 1) = "NX" & " " & "T" & i & -18
      Next
End Sub

 

[huonglien1901]

Anh chị ơi cho em hỏi về cách Fill ô xuống ạ
Em đánh chữ NX T1-18 em muosn kéo xuống chỉ thay đổi
chữ T1 thành T2 theo thứ tự xuống nữa thành T3, T4.... thì làm sao ạ

Công thức thủ công

=LEFT(B3,4)&row(A1)+1&-"18"

 

[VetMini]

Hoặc:

Sub abc()
Dim i, LR, St
   LR = Cells(Rows.Count, 1).End(3).Row
   LR = InputBox("Nhap so")
      For i = 1 To LR
       Cells(i + 1, 1) = "NX" & " " & "T" & i & -18
      Next
End Sub

Code này có nhiều điểm luộm thuộm

Công thức:
=SUBSTITUTE( "NX T#-18", "#", ROWS($A$1:$A1) )
thay con số đỏ bằng con số dòng bắt đầu công thức. Sau đó cứ fill xuống.

 

[be_09]

Anh chị ơi cho em hỏi về cách Fill ô xuống ạ
Em đánh chữ NX T1-18 em muosn kéo xuống chỉ thay đổi
chữ T1 thành T2 theo thứ tự xuống nữa thành T3, T4.... thì làm sao ạ

Thử sử dụng định dạng:
Chọn cột muốn định dạng (trong hình chọn từ A2 trở xuống), click phải chuột chọn Format Cells, hộp thoại hiện ra chọn thẻ Number > Custom trong khung Type bạn Paste cái này vào, rồi nhấn OK.

"NX T"##0[$_18]

Bây giờ vào A2 gõ số 1 vào A3 gõ số 2, chọn A2 và A3 rồi Fill xuống sẽ được kết quả như hình.

 

[Quynhau]

Cám ơn anh chị nhiều nha em làm được rồi