Chạy vòng lặp trong Excel (1 người xem)

[hitmen]

Kính chào các bác,

Chẳng là em rất kém về viết lệnh, em nhờ các bác xem giúp file em xây dựng như sau.
Em cần thành lập phác đồ chuẩn, trong đó tên thuốc không được trùng nhau. Em cần xây dựng 2 vòng lặp
Vòng 1: chạy từ 1 đến B17 tại giá trị vòng 1 này
chạy Vòng 2: chạy từ Bj đến Fj (j=1 to 5), nếu trùng tên thuốc thì next, nếu không trùng thì lấy giá trị "/j". Sau đó gán giá trị chuỗi vào cột H.

(Gửi kèm file mong các bác xem giúp

 

[hitmen]

Kính chào các bác,

Chẳng là em rất kém về viết lệnh, em nhờ các bác xem giúp file em xây dựng như sau.
Em cần thành lập phác đồ chuẩn, trong đó tên thuốc không được trùng nhau. Em cần xây dựng 2 vòng lặp
Vòng 1: chạy từ 1 đến B17 tại giá trị vòng 1 này
chạy Vòng 2: chạy từ Bj đến Fj (j=1 to 5), nếu trùng tên thuốc thì next, nếu không trùng thì lấy giá trị "/j". Sau đó gán giá trị chuỗi vào cột H.

(Gửi kèm file mong các bác xem giúp

Em định viết đại loại như:
Sub Phacdo()

Dim i, j As Integer, sText As String

For i = 1 To [B17].Value

For j = 1 To 5

Cells(i, j).Value


Next j

stext=

ThisWorkbook.ActiveSheet.Range(Cells(2 + j, 8), Cells(2 + j, 8)).Value = sText

Next i
End Sub

tuy nhiên làm thế nào với vòng j thì em chịu, làm thế nào để biết các giá trị trong j không trùng nhau em cũng chịu.
Mong các bác giúp đỡ