Giúp tạo macro copy data (1 người xem)

[mimili]

Mình muốn copy dữ liệu từ cột A và những ô có giá trị ở cột F từ Sheet 1 sang Sheet 2 ( bắt đầu ô A1 cột A và ô B1 cột B). Bạn xem file đính kèm mình gửi nha!

 

[huuthang_bd]

Mình muốn copy dữ liệu từ cột A và những ô có giá trị ở cột F từ Sheet 1 sang Sheet 2 ( bắt đầu ô A1 cột A và ô B1 cột B). Bạn xem file đính kèm mình gửi nha!

Bạn có thể dùng Macro này:

Sub CopyData()
On Error GoTo NoData
Sheet2.[A1].CurrentRegion.Clear
    With Sheet1.[F:F].SpecialCells(2, 23)
        .Copy Sheet2.[B1]
        .Offset(, -4).Copy Sheet2.[A1]
    End With
NoData:
End Sub

 

[mimili]

Cám ơn bạn nhiều!
Nhưng minh làm không được nếu cột F có chứa công thức Vlookup lấy dữ liệu. Bạn xem file này nha!

 

[huuthang_bd]

Cám ơn bạn nhiều!
Nhưng minh làm không được nếu cột F có chứa công thức Vlookup lấy dữ liệu. Bạn xem file này nha!

Nếu không rành thì có như thế nào bạn cứ mang nguyên như thế ấy mà hỏi. Sửa khác đi làm gì cho rắc rối nhỉ.

Sub CopyData()
Application.ScreenUpdating = False
On Error GoTo NoData
Sheet3.[A1].CurrentRegion.Clear
    With Sheet2.[F:F].SpecialCells(xlCellTypeFormulas, 7)
        .Copy
        Sheet3.[B1].PasteSpecial Paste:=xlPasteValues
        .Offset(, -4).Copy
        Sheet3.[A1].PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End With
NoData:
Application.ScreenUpdating = True
End Sub

 

[mimili]

Bạn giúp mình giải thích chi tiết về đoạn code bên dưới nha! Cảm ơn bạn nhiều!

Sub Loc()
[c7:c7000].SpecialCells(2).Offset(, -1) = "=COUNTIF(R7C7:RC7,RC7)"
[b7:b7000].AutoFilter: Selection.AutoFilter 1, 1
[b7].CurrentRegion.Copy
[l7].Select: ActiveSheet.Paste: Application.CutCopyMode = False
ActiveSheet.AutoFilterMode = False
[o7] = "=SUMIF(R7C7:R7000C7,RC17,R7C[-10]:R7000C[-10])"
[o7].Copy [o7].Resize(10000, 2)
Selection = Selection.Value
Union([b:b], [l:l]).Clear
[p].Select
Selection.NumberFormat = "#,##0.00"
Selection.Copy
Range("P17000").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
[p1].Select
End Sub