Di chuyển giá trị trong excel or VBA (1 người xem)

[bongmaihung]

Em có dữ liệu như file đính kèm. Giá trị mua và bán đều đang nằm trên cùng một cột, không biết có cách nào chuyển giá trị bán sang cột giá trị bán ko ah. Chi tiết em gửi file đính kèm. Anh chị có thể dùng công thức or VBA đều được ah.
Em cảm ơn

 

[Quang_Hải]

Em có dữ liệu như file đính kèm. Giá trị mua và bán đều đang nằm trên cùng một cột, không biết có cách nào chuyển giá trị bán sang cột giá trị bán ko ah. Chi tiết em gửi file đính kèm. Anh chị có thể dùng công thức or VBA đều được ah.
Em cảm ơn

Tham khảo code rồi chỉnh cho đúng ý của bạn

Sub dichuyen()
Dim data(), i&
data = [A2:J13].Value
For i = 1 To UBound(data)
   If UCase(Left(data(i, 3), 1)) = "B" Then
      data(i, 8) = data(i, 7)
      data(i, 7) = Empty
   End If
Next
[K2].Resize(i - 1, 10) = data
End Sub

 

[bongmaihung]

Tham khảo code rồi chỉnh cho đúng ý của bạn

Sub dichuyen()
Dim data(), i&
data = [A2:J13].Value
For i = 1 To UBound(data)
   If UCase(Left(data(i, 3), 1)) = "B" Then
      data(i, 8) = data(i, 7)
      data(i, 7) = Empty
   End If
Next
[K2].Resize(i - 1, 10) = data
End Sub

H lại biết thêm VBA có empty. Lại anh Quang Hải giúp đỡ, Cảm ơn anh nhiều ah