با سلام
با یک ماکرو ساده قابل انجام است
کد PHP:
Sub test()
endrow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
z2 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1
z3 = Sheet2.Cells(Sheet2.Rows.Count, "E").End(xlUp).Row + 1
For I = 2 To endrow
If Sheet1.Range("A" & I) <> "" And Sheet1.Range("B" & I) <> "" Then
Sheet2.Range("a" & z2) = Sheet1.Range("A" & I)
Sheet2.Range("b" & z2) = Sheet1.Range("b" & I)
Sheet2.Range("c" & z2) = Sheet1.Range("d" & I)
z2 = z2 + 1
End If
Next
For I = 2 To endrow
If Sheet1.Range("A" & I) <> "" And Sheet1.Range("C" & I) <> "" Then
Sheet2.Range("E" & z3) = Sheet1.Range("A" & I)
Sheet2.Range("F" & z3) = Sheet1.Range("C" & I)
Sheet2.Range("G" & z3) = Sheet1.Range("d" & I)
z3 = z3 + 1
End If
Next
Sheet2.Select
End Sub
علاقه مندی ها (Bookmarks)