Xin giúp đở gấp về thêm hàng tự động trong bảng dử liệu sẳn có

[minhtribt]

EM CÓ BẢNG SAU (dựa vào giá trị cột 3 để thêm dòng mới)



Rất mong các anh chị giúp đở em sớm, vì em đang rất cần gấp
em xin cảm ơn chúc mọi người cuối tuần vui vẻ hạnh phúc

 

[chuot0106]

EM CÓ BẢNG SAU (dựa vào giá trị cột 3 để thêm dòng mới)
View attachment 119383


Rất mong các anh chị giúp đở em sớm, vì em đang rất cần gấp
em xin cảm ơn chúc mọi người cuối tuần vui vẻ hạnh phúc

Bạn gửi File nên đi.

 

[minhtribt]

File của minh đây

Sao mình tải file kg được hic hic

 

[minhtribt]

bạn gửi file nên đi.

mình gởi file rồi bạn giúp mình tí nhé

 

[ChanhTQ@]

Muốn gấp thì có gấp: Bạn đến đây nè, ngay bài đầu luôn: http://www.danketoan.com/forum/exce...oi-vo-1-csdl-co-so-du-lieu-da-san.182915.html

 

[minhtribt]

Muốn gấp thì có gấp: Bạn đến đây nè, ngay bài đầu luôn: http://www.danketoan.com/forum/exce...oi-vo-1-csdl-co-so-du-lieu-da-san.182915.html

nhưng em làm theo không được, không có kết quả macro bao lổi hichic

 

[chuot0106]

nhưng em làm theo không được, không có kết quả macro bao lổi hichic

Bạn sửa lại code cho phù hợp với File của bạn chứ sao tác giả biết dữ liệu của bạn ra sao mà bạn đòi sử dụng ngay code được. Phải tùy biênss:
Bạn thử xem:

Sub InsertRowsxlUp()
Dim Rws As Long, j As Long, NumFrom As Byte
Rws = [D3].End(xlDown).Offset(-1).Row
For j = Rws To 2 Step -1
With Cells(j, "D")
NumFrom = CLng(Mid(.Value, InStr(.Value, " ") + 1, 9))
.Offset(1).Resize(NumFrom).EntireRow.Insert
End With
Next j
End Sub

 

[minhtribt]

Em làm được rồi cảm ơn các anh chị rất nhiều