ThanRuaKaMe
Thành viên mới
- Tham gia
- 7/1/08
- Bài viết
- 27
- Được thích
- 2
Nói lại cho chính xác đi bạnNhờ mọi người chỉ giúp mình.
giải thích ví dụ và yêu cầu cần làm mình để ở sheet3 tai file đính kèm.
cám ơn nhiều!
Tạm thời thế này, gọi các dữ liệu ở sheet3 nhéhic. Sáng nay em gửi ví dụ một sheet nhưng mọi người không hiểu ý của em nên em lấy 2 sheet cho mọi người dễ hình dung.
em mô tả lại ví dụ của em
+ vào sheet1: tìm trong cột A, nếu ô nào bằng "abc" thì copy ô ở cột B và ô ở cột D tại dòng đó và coy sang cột A và cột E tại sheet3. (Copy tất cả các cột dòng như thế).
+ giả sử ta copy được 4 dòng.
+ vào sheet2: tìm trong cột A, nếu ô nào bằng "def" thì copy ô ở cột B và ô ở cột D tại dòng đó và coy sang cột A và cột E tại sheet3. (Copy tất cả các cột dòng như thế). và pase vào dòng tiếp theo của sheet3 ( tức là dòng thứ 5)
Em đã đánh kết quả vào trong sheet3 rồi mong các bác giải đáp giúp em.
Private Sub CommandButton1_Click()
Dim Ws As Worksheet, I
If [a2] <> "" Then Range([a2], [a100].End(xlUp)).Resize(, 5).Clear
For I = 1 To 2
Set Ws = Sheets("sheet" & I)
With Ws.Range(Ws.[a1], Ws.[a500].End(xlUp))
.Resize(, 4).AutoFilter 1, IIf(I = 1, "ABC", "DEF")
.Offset(1, 1).SpecialCells(12).Copy [a500].End(xlUp)(2)
.Offset(1, 3).SpecialCells(12).Copy [e500].End(xlUp)(2)
.AutoFilter
End With
Next
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2