Sửa giúp mình Code Copy

[hoang0569]

Mình có gửi File kèm theo, mong anh em giúp, cảm ơn anh em nhiều.

 

[snow25]

Mình có gửi File kèm theo, mong anh em giúp, cảm ơn anh em nhiều.

Bạn chay code này xem.

Sub Button1_Click()
Dim arr, i As Long, j As Long
arr = Range("C5:G20").Value
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        If arr(i, j) = "-" Then arr(i, j) = Empty
    Next j
Next i
Range("H5:l20").Value = arr
End Sub

 

[hoang0569]

Cảm ơn bạn nhiều.