Giúp xuât giữ liệu sang sheet khác (1 người xem)

[nguyendam32]

Các bác giúp em với ạ, em cần gấp
Em có dữ liệu cứ 2 lần lại lấy nhiệt đọ 1 lần, xuất ra file excel. Bây giờ làm sao để xuất nhiệt độ trung bình, nhiệu độ max trong 1 ngày ra sheet khác ạ
Các bác có thể ùng VBA cũng đc ạ, em đang muốn học hỏi mà ko kịp time.

 

[Let'GâuGâu]

Các bác giúp em với ạ, em cần gấp
Em có dữ liệu cứ 2 lần lại lấy nhiệt đọ 1 lần, xuất ra file excel. Bây giờ làm sao để xuất nhiệt độ trung bình, nhiệu độ max trong 1 ngày ra sheet khác ạ
Các bác có thể ùng VBA cũng đc ạ, em đang muốn học hỏi mà ko kịp time.

cái này bạn chỉ việc bỏ merge cell cột C và D đi
sau đó chọn cột A,B,C,D rồi filter, ở cột C lick bỏ cái blank đi
xong copy nó ra là được, code chi cho nó rối

 

[nguyendam32]

Filter kiểu gì ạ, mình chưa hiểu lắm

 

[nguyendam32]

ah, mình hiểu ý bạn nhưng như thế ko chuyên nghiệp lắm. mình muốn nó ra sheet mới cho dễ nhìn sau còn làm biểu đồ nữa ạ

 

[Let'GâuGâu]

ah, mình hiểu ý bạn nhưng như thế ko chuyên nghiệp lắm. mình muốn nó ra sheet mới cho dễ nhìn sau còn làm biểu đồ nữa ạ

Option Explicit
Sub test()
Dim Sarr, Rarr(1 To 60000, 1 To 3) As Variant
Dim i, j, k As Long

Sheet2.[a3:c60000].ClearContents
Sarr = Sheet1.[a1:d60000]

For i = 1 To UBound(Sarr)
    If Sarr(i, 1) = "" Then Exit For
    If Sarr(i, 3) <> "" Then
        k = k + 1
        Rarr(k, 1) = Split(Sarr(i, 1), " ")(0)
        Rarr(k, 2) = Sarr(i, 3)
        Rarr(k, 3) = Sarr(i, 4)
    End If
Next

If k Then Sheet2.[a3].Resize(k, 3) = Rarr
End Sub