با سلام
در فایل جدید مشکل برطرف شد
کد PHP:
Sub test()
Macro1
On Error Resume Next
K = 2
z1 = Application.WorksheetFunction.CountA(Sheet1.Range("1:1"))
For J = 1 To z1
Z2 = Sheet1.Cells(Sheet1.Rows.Count, J).End(xlUp).Row
For i = 1 To Z2
xx = Cells(i, J)
zz = Cells(i, J).Offset(1, 0)
yy = InStr(1, xx, "Material Name:")
If yy >= 1 Then
Sheet2.Range("A" & K) = K - 1
Sheet2.Range("B" & K) = Right(xx, Len(Cells(i, J)) - 15)
End If
yy = InStr(1, xx, "Trade Name:")
If yy >= 1 Then
Sheet2.Range("C" & K) = Right(xx, Len(xx) - 12)
K = K + 1
Exit For
End If
Next
Next
Sheet2.Select
End Sub
علاقه مندی ها (Bookmarks)