Xin giúp đỡ lấy dữ liệu từ file excel này sang file excel khác (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
T

trieusimuu

Thành viên mới
Tham gia
14/4/16
Bài viết
11
Được thích
0
Chào Anh Chị,
Mong Anh Chị giúp đỡ, em có 2 file excel
File 1 "Data rieng" Chứa các Cột: Tên Chiến Dịch, Số tiền đã chi tiêu, Số lần hiển thị, Số lần nhấp, CPM, Tổng Leads,
File 2 "Data chung" Chứa các Dòng như File 1: Tên Chiến Dịch, Ngày đo đạc, Số tiền đã chi tiêu, Số lần hiển thị, Số lần nhấp, CPM, Tổng Leads
Em muốn lấy dữ liệu từ các cột File 1 sang các Hàng file 2 với Với Tên Chiến Dịch tương ứng.
Mong các anh, chị giúp đỡ, Cảm ơn ạ!
Đây là 2 file của em.
 

File đính kèm

Lần chỉnh sửa cuối:
File đâu??
 
trieusimuu đã viết:
Chào Anh Chị,
Mong Anh Chị giúp đỡ, em có 2 file excel
File 1 "Data rieng" Chứa các Cột: Tên Chiến Dịch, Số tiền đã chi tiêu, Số lần hiển thị, Số lần nhấp, CPM, Tổng Leads,
File 2 "Data chung" Chứa các Dòng như File 1: Tên Chiến Dịch, Ngày đo đạc, Số tiền đã chi tiêu, Số lần hiển thị, Số lần nhấp, CPM, Tổng Leads
Em muốn lấy dữ liệu từ các cột File 1 sang các Hàng file 2 với Với Tên Chiến Dịch tương ứng.
Mong các anh, chị giúp đỡ, Cảm ơn ạ!
Đây là 2 file của em.
Nhấp chuột vào đây để mở rộng...
Bạn thử code này nhé.Cho nó vào cùng 1 chỗ rồi chạy code.
Mã: 
Sub laydulieu()
      Dim duonglink As String, i As Long, lr As Long, dic As Object, arr, data, a As Long, cnn As Object, pro As String, ext As String
      Dim Sql As String, R As Long, dk As String, c As Long, b As Long, d As Integer, s, T, L As Long, tong As Double, j As Long
      Set dic = CreateObject("scripting.dictionary")
      With Sheets("Raw Data Report")
           lr = .Range("A" & Rows.Count).End(xlUp).Row
           If lr = 1 Then Exit Sub
           .Range("B2:F" & lr).ClearContents
           data = .Range("A1:F" & lr).Value
           For i = 2 To UBound(data)
              dk = UCase(data(i, 1))
              dic.Item(dk) = i
           Next i
           For i = 2 To UBound(data, 2)
               dk = UCase(data(1, i))
               dic.Item(dk) = i
           Next i
      End With
      Set cnn = CreateObject("adodb.connection")
      duonglink = ThisWorkbook.Path & "\data chung.xlsx"
      pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
      ext = ";Extended Properties=""Excel 12.0;HDR=No;"";"
      cnn.Open (pro & duonglink & ext)
      Sql = "SELECT * from [Facebook(T8)$A1:Al100000] where f2 is not null"
      arr = cnn.Execute(Sql).GetRows
      R = UBound(arr, 2)
      L = UBound(arr, 1)
      For i = 3 To R
          tong = 0
          If IsNull(arr(0, i)) Then arr(0, i) = arr(0, i - 1)
          'Debug.Print arr(0, i)
          a = dic.Item(UCase(arr(0, i)))
          b = dic.Item(UCase(arr(1, i)))
          If a And b Then
             For j = 2 To L
               If InStr(arr(j, 0), "T") = 0 And Not IsNull(arr(j, i)) Then tong = tong + arr(j, i)
             Next j
          data(a, b) = tong
          End If
      Next i
      With Sheets("Raw Data Report")
           .Range("A1:F" & lr).Value = data
      End With
      cnn.Close
      Set dic = Nothing
      Set cnn = Nothing
End Sub
Hoặc dùng code này nhé.Vì không có dữ liệu nên không test được.Bạn test đi nhé.
Mã: 
Sub laydulieu()
      Dim duonglink As String, i As Long, lr As Long, dic As Object, arr, data, a As Long, cnn As Object, pro As String, ext As String
      Dim Sql As String, R As Long, dk As String, c As Long, b As Long, d As Integer, s, T, L As Long, tong As Double, j As Long, kq
      Set dic = CreateObject("scripting.dictionary")
      With Sheets("Raw Data Report")
           lr = .Range("A" & Rows.Count).End(xlUp).Row
           If lr = 1 Then .Range("A2:F" & lr).ClearContents
           data = .Range("A1:F1").Value
           For i = 2 To UBound(data, 2)
               dk = UCase(data(1, i))
               dic.Item(dk) = i
           Next i
      End With
      Set cnn = CreateObject("adodb.connection")
      duonglink = ThisWorkbook.Path & "\data chung.xlsx"
      pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
      ext = ";Extended Properties=""Excel 12.0;HDR=No;"";"
      cnn.Open (pro & duonglink & ext)
      Sql = "SELECT * from [Facebook(T8)$A1:Al100000] where f2 is not null"
      arr = cnn.Execute(Sql).GetRows
      R = UBound(arr, 2)
      L = UBound(arr, 1)
      ReDim kq(1 To L, 1 To 6)
      For i = 3 To R
          tong = 0
          If IsNull(arr(0, i)) Then arr(0, i) = arr(0, i - 1)
          dk = arr(0, i)
          If Not dic.exists(dk) Then
             c = c + 1
             dic.Add dk, c
             kq(c, 1) = dk
          End If
          a = dic.Item(dk)
          b = dic.Item(UCase(arr(1, i)))
          If b Then
             For j = 2 To L
               If InStr(arr(j, 0), "T") = 0 And Not IsNull(arr(j, i)) Then tong = tong + arr(j, i)
             Next j
          kq(a, b) = tong
          End If
      Next i
      With Sheets("Raw Data Report")
           If c Then .Range("A2:F2").Resize(c).Value = kq
      End With
      cnn.Close
      Set dic = Nothing
      Set cnn = Nothing
End Sub
 
Lần chỉnh sửa cuối:
snow25 đã viết:
Bạn thử code này nhé.Cho nó vào cùng 1 chỗ rồi chạy code.
Mã: 
Sub laydulieu()
      Dim duonglink As String, i As Long, lr As Long, dic As Object, arr, data, a As Long, cnn As Object, pro As String, ext As String
      Dim Sql As String, R As Long, dk As String, c As Long, b As Long, d As Integer, s, T, L As Long, tong As Double, j As Long
      Set dic = CreateObject("scripting.dictionary")
      With Sheets("Raw Data Report")
           lr = .Range("A" & Rows.Count).End(xlUp).Row
           If lr = 1 Then Exit Sub
           .Range("B2:F" & lr).ClearContents
           data = .Range("A1:F" & lr).Value
           For i = 2 To UBound(data)
              dk = UCase(data(i, 1))
              dic.Item(dk) = i
           Next i
           For i = 2 To UBound(data, 2)
               dk = UCase(data(1, i))
               dic.Item(dk) = i
           Next i
      End With
      Set cnn = CreateObject("adodb.connection")
      duonglink = ThisWorkbook.Path & "\data chung.xlsx"
      pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
      ext = ";Extended Properties=""Excel 12.0;HDR=No;"";"
      cnn.Open (pro & duonglink & ext)
      Sql = "SELECT * from [Facebook(T8)$A1:Al100000] where f2 is not null"
      arr = cnn.Execute(Sql).GetRows
      R = UBound(arr, 2)
      L = UBound(arr, 1)
      For i = 3 To R
          tong = 0
          If IsNull(arr(0, i)) Then arr(0, i) = arr(0, i - 1)
          'Debug.Print arr(0, i)
          a = dic.Item(UCase(arr(0, i)))
          b = dic.Item(UCase(arr(1, i)))
          If a And b Then
             For j = 2 To L
               If InStr(arr(j, 0), "T") = 0 And Not IsNull(arr(j, i)) Then tong = tong + arr(j, i)
             Next j
          data(a, b) = tong
          End If
      Next i
      With Sheets("Raw Data Report")
           .Range("A1:F" & lr).Value = data
      End With
      cnn.Close
      Set dic = Nothing
      Set cnn = Nothing
End Sub
Hoặc dùng code này nhé.Vì không có dữ liệu nên không test được.Bạn test đi nhé.
Mã: 
Sub laydulieu()
      Dim duonglink As String, i As Long, lr As Long, dic As Object, arr, data, a As Long, cnn As Object, pro As String, ext As String
      Dim Sql As String, R As Long, dk As String, c As Long, b As Long, d As Integer, s, T, L As Long, tong As Double, j As Long, kq
      Set dic = CreateObject("scripting.dictionary")
      With Sheets("Raw Data Report")
           lr = .Range("A" & Rows.Count).End(xlUp).Row
           If lr = 1 Then .Range("A2:F" & lr).ClearContents
           data = .Range("A1:F1").Value
           For i = 2 To UBound(data, 2)
               dk = UCase(data(1, i))
               dic.Item(dk) = i
           Next i
      End With
      Set cnn = CreateObject("adodb.connection")
      duonglink = ThisWorkbook.Path & "\data chung.xlsx"
      pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
      ext = ";Extended Properties=""Excel 12.0;HDR=No;"";"
      cnn.Open (pro & duonglink & ext)
      Sql = "SELECT * from [Facebook(T8)$A1:Al100000] where f2 is not null"
      arr = cnn.Execute(Sql).GetRows
      R = UBound(arr, 2)
      L = UBound(arr, 1)
      ReDim kq(1 To L, 1 To 6)
      For i = 3 To R
          tong = 0
          If IsNull(arr(0, i)) Then arr(0, i) = arr(0, i - 1)
          dk = arr(0, i)
          If Not dic.exists(dk) Then
             c = c + 1
             dic.Add dk, c
             kq(c, 1) = dk
          End If
          a = dic.Item(dk)
          b = dic.Item(UCase(arr(1, i)))
          If b Then
             For j = 2 To L
               If InStr(arr(j, 0), "T") = 0 And Not IsNull(arr(j, i)) Then tong = tong + arr(j, i)
             Next j
          kq(a, b) = tong
          End If
      Next i
      With Sheets("Raw Data Report")
           If c Then .Range("A2:F2").Resize(c).Value = kq
      End With
      cnn.Close
      Set dic = Nothing
      Set cnn = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
--------------------

Cứ như kiểu code để sẵn trong bụng, chỉ cần ai hỏi gì, ói 1 phát ra 1 đống luôn
 
snow25 đã viết:
Bạn thử code này nhé.Cho nó vào cùng 1 chỗ rồi chạy code.
Mã: 
Sub laydulieu()
      Dim duonglink As String, i As Long, lr As Long, dic As Object, arr, data, a As Long, cnn As Object, pro As String, ext As String
      Dim Sql As String, R As Long, dk As String, c As Long, b As Long, d As Integer, s, T, L As Long, tong As Double, j As Long
      Set dic = CreateObject("scripting.dictionary")
      With Sheets("Raw Data Report")
           lr = .Range("A" & Rows.Count).End(xlUp).Row
           If lr = 1 Then Exit Sub
           .Range("B2:F" & lr).ClearContents
           data = .Range("A1:F" & lr).Value
           For i = 2 To UBound(data)
              dk = UCase(data(i, 1))
              dic.Item(dk) = i
           Next i
           For i = 2 To UBound(data, 2)
               dk = UCase(data(1, i))
               dic.Item(dk) = i
           Next i
      End With
      Set cnn = CreateObject("adodb.connection")
      duonglink = ThisWorkbook.Path & "\data chung.xlsx"
      pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
      ext = ";Extended Properties=""Excel 12.0;HDR=No;"";"
      cnn.Open (pro & duonglink & ext)
      Sql = "SELECT * from [Facebook(T8)$A1:Al100000] where f2 is not null"
      arr = cnn.Execute(Sql).GetRows
      R = UBound(arr, 2)
      L = UBound(arr, 1)
      For i = 3 To R
          tong = 0
          If IsNull(arr(0, i)) Then arr(0, i) = arr(0, i - 1)
          'Debug.Print arr(0, i)
          a = dic.Item(UCase(arr(0, i)))
          b = dic.Item(UCase(arr(1, i)))
          If a And b Then
             For j = 2 To L
               If InStr(arr(j, 0), "T") = 0 And Not IsNull(arr(j, i)) Then tong = tong + arr(j, i)
             Next j
          data(a, b) = tong
          End If
      Next i
      With Sheets("Raw Data Report")
           .Range("A1:F" & lr).Value = data
      End With
      cnn.Close
      Set dic = Nothing
      Set cnn = Nothing
End Sub
Hoặc dùng code này nhé.Vì không có dữ liệu nên không test được.Bạn test đi nhé.
Mã: 
Sub laydulieu()
      Dim duonglink As String, i As Long, lr As Long, dic As Object, arr, data, a As Long, cnn As Object, pro As String, ext As String
      Dim Sql As String, R As Long, dk As String, c As Long, b As Long, d As Integer, s, T, L As Long, tong As Double, j As Long, kq
      Set dic = CreateObject("scripting.dictionary")
      With Sheets("Raw Data Report")
           lr = .Range("A" & Rows.Count).End(xlUp).Row
           If lr = 1 Then .Range("A2:F" & lr).ClearContents
           data = .Range("A1:F1").Value
           For i = 2 To UBound(data, 2)
               dk = UCase(data(1, i))
               dic.Item(dk) = i
           Next i
      End With
      Set cnn = CreateObject("adodb.connection")
      duonglink = ThisWorkbook.Path & "\data chung.xlsx"
      pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
      ext = ";Extended Properties=""Excel 12.0;HDR=No;"";"
      cnn.Open (pro & duonglink & ext)
      Sql = "SELECT * from [Facebook(T8)$A1:Al100000] where f2 is not null"
      arr = cnn.Execute(Sql).GetRows
      R = UBound(arr, 2)
      L = UBound(arr, 1)
      ReDim kq(1 To L, 1 To 6)
      For i = 3 To R
          tong = 0
          If IsNull(arr(0, i)) Then arr(0, i) = arr(0, i - 1)
          dk = arr(0, i)
          If Not dic.exists(dk) Then
             c = c + 1
             dic.Add dk, c
             kq(c, 1) = dk
          End If
          a = dic.Item(dk)
          b = dic.Item(UCase(arr(1, i)))
          If b Then
             For j = 2 To L
               If InStr(arr(j, 0), "T") = 0 And Not IsNull(arr(j, i)) Then tong = tong + arr(j, i)
             Next j
          kq(a, b) = tong
          End If
      Next i
      With Sheets("Raw Data Report")
           If c Then .Range("A2:F2").Resize(c).Value = kq
      End With
      cnn.Close
      Set dic = Nothing
      Set cnn = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ em cho nó vào cùng 1 chỗ rồi. Chạy cả 2 code đều lỗi này Untitled.png tại dòng "arr = cnn.Execute(Sql).GetRows"
Em thử giảm giá trị giá trị [Facebook(T8)$A1:Al10000] thì code chạy nhưng không ra kết quả, ở Sheet Raw Data Report giá trị có thay đổi từ Untitled1.png thành các ô lỗi Untitled12.png. Nhưng Sheet Facebook(T8) không thay đổi gì ạ

Mong anh xem giúp em thử đang lỗi chỗ nào ạ. Em cảm ơn
 
trieusimuu đã viết:
Dạ em cho nó vào cùng 1 chỗ rồi. Chạy cả 2 code đều lỗi này View attachment 222514 tại dòng "arr = cnn.Execute(Sql).GetRows"
Em thử giảm giá trị giá trị [Facebook(T8)$A1:Al10000] thì code chạy nhưng không ra kết quả, ở Sheet Raw Data Report giá trị có thay đổi từ View attachment 222518 thành các ô lỗi View attachment 222519. Nhưng Sheet Facebook(T8) không thay đổi gì ạ

Mong anh xem giúp em thử đang lỗi chỗ nào ạ. Em cảm ơn
Nhấp chuột vào đây để mở rộng...
Do file dữ liệu của bạn không có dữ liệu mà.Bạn cho nó kết quả vào xem nào.
 
snow25 đã viết:
Do file dữ liệu của bạn không có dữ liệu mà.Bạn cho nó kết quả vào xem nào.
Nhấp chuột vào đây để mở rộng...
Dạ ý anh là thêm dữ liệu vào Sheet Facebook(T8) phải không ạ, Em có thêm vào rồi vẫn lỗi anh, lỗi dòng Then tong = tong + arr(j, i). Lúc này Sheet Raw Data Report bị xóa sạch các số liệu luôn anh.
 

File đính kèm

  • Untitled.png
    Untitled.png
    11.8 KB · Đọc: 4
trieusimuu đã viết:
Dạ ý anh là thêm dữ liệu vào Sheet Facebook(T8) phải không ạ, Em có thêm vào rồi vẫn lỗi anh, lỗi dòng Then tong = tong + arr(j, i). Lúc này Sheet Raw Data Report bị xóa sạch các số liệu luôn anh.
Nhấp chuột vào đây để mở rộng...
Bạn gửi cái file lên nhé.Có dữ liệu để mình test xem.
 
snow25 đã viết:
Bạn gửi cái file lên nhé.Có dữ liệu để mình test xem.
Nhấp chuột vào đây để mở rộng...
Dạ em gửi file anh xem thử ạ. Dữ liệu em nhập tay tới ngày 6/8 ạ giờ em muốn đưa dữ liệu từ Sheet Raw Data Report qua ngày 7/8. Anh xem giúp em với ạ. Em cảm ơn
 

File đính kèm

trieusimuu đã viết:
Dạ em gửi file anh xem thử ạ. Dữ liệu em nhập tay tới ngày 6/8 ạ giờ em muốn đưa dữ liệu từ Sheet Raw Data Report qua ngày 7/8. Anh xem giúp em với ạ. Em cảm ơn
Nhấp chuột vào đây để mở rộng...
Ơ thế cùng chung 1 file à.Mà nó tổng hợp lại sao lại là dạng string nhỉ.Bạn phải để dạng số nó mới tổng hợp được chứ.Bạn nói rõ yêu cầu của mình rõ ràng để mình code cho nó chuẩn nhé.Dữ liệu kiểu gì nhé.Ví dụ có chữ đ ở sau đó.
 
snow25 đã viết:
Ơ thế cùng chung 1 file à.Mà nó tổng hợp lại sao lại là dạng string nhỉ.Bạn phải để dạng số nó mới tổng hợp được chứ.Bạn nói rõ yêu cầu của mình rõ ràng để mình code cho nó chuẩn nhé.Dữ liệu kiểu gì nhé.Ví dụ có chữ đ ở sau đó.
Nhấp chuột vào đây để mở rộng...
Dạ ban đầu 2 file do em tưởng anh bảo nhập lại nên em nhập thành 2 Sheet. Kiểu dữ liệu ban đầu em nhập là số xong em về chỉnh về kiểu dữ liệu Tiền tệ ạ
 
trieusimuu đã viết:
Dạ ban đầu 2 file do em tưởng anh bảo nhập lại nên em nhập thành 2 Sheet. Kiểu dữ liệu ban đầu em nhập là số xong em về chỉnh về kiểu dữ liệu Tiền tệ ạ
Nhấp chuột vào đây để mở rộng...
Bạn phải để dữ liệu số code mới chạy được chứ.
 
trieusimuu đã viết:
Dạ em gửi file anh xem thử ạ. Dữ liệu em nhập tay tới ngày 6/8 ạ giờ em muốn đưa dữ liệu từ Sheet Raw Data Report qua ngày 7/8. Anh xem giúp em với ạ. Em cảm ơn
Nhấp chuột vào đây để mở rộng...
Dạ em cảm ơn anh. Nhưng chắc anh hiểu nhầm ý em mất rồi.
Em muốn lấy dữ liệu các hàng bên Sheet Raw Data Report chuyển qua các cột Sheet Facebook(T8) với điều kiện khớp "Tên chiến dịch" ạ.
Code a hỗ trợ cho em là tính tổng, Anh giúp em với ạ :(:(:(. Em cảm ơn anh
Bài đã được tự động gộp:

trieusimuu đã viết:
Dạ em cảm ơn anh. Nhưng chắc anh hiểu nhầm ý em mất rồi.
Em muốn lấy dữ liệu các hàng bên Sheet Raw Data Report chuyển qua các cột Sheet Facebook(T8) với điều kiện khớp "Tên chiến dịch" ạ.
Ví dụ. Ở Sheet Raw Data Report có hàng PĐL - Lì xì đầu tháng 8 - Ủ trắng 99k có các cột "Tên Chiến Dịch, Số tiền đã chi tiêu, Số lần hiển thị, Số lần nhấp, CPM, Tổng Leads". Em muốn nó chuyển qua Sheet Facebook(T8) với các cột tương ứng ạ
Code a hỗ trợ cho em là tính tổng, Anh giúp em với ạ :(:(:(. Em cảm ơn anh
Nhấp chuột vào đây để mở rộng...
Bài đã được tự động gộp:

snow25 đã viết:
Bạn chạy code thứ 2 xem mình chạy được ra kết quả mà.
View attachment 222527
Nhấp chuột vào đây để mở rộng...
Dạ em cảm ơn anh. Nhưng chắc anh hiểu nhầm ý em mất rồi.
Em muốn lấy dữ liệu các hàng bên Sheet Raw Data Report chuyển qua các cột Sheet Facebook(T8) với điều kiện khớp "Tên chiến dịch" ạ.
Ví dụ. Ở Sheet Raw Data Report có hàng với Tên chiến dịch PĐL - Lì xì đầu tháng 8 - Ủ trắng 99k có các cột "Tên Chiến Dịch, Số tiền đã chi tiêu, Số lần hiển thị, Số lần nhấp, CPM, Tổng Leads". Em muốn nó chuyển các số liệu qua Sheet Facebook(T8) với các cột tương ứng ạ
Code a hỗ trợ cho em là tính tổng, Anh giúp em với ạ :(:(:(. Em cảm ơn anh
 
Lần chỉnh sửa cuối:
trieusimuu đã viết:
Dạ em cảm ơn anh. Nhưng chắc anh hiểu nhầm ý em mất rồi.
Em muốn lấy dữ liệu các hàng bên Sheet Raw Data Report chuyển qua các cột Sheet Facebook(T8) với điều kiện khớp "Tên chiến dịch" ạ.
Code a hỗ trợ cho em là tính tổng, Anh giúp em với ạ :(:(:(. Em cảm ơn anh
Bài đã được tự động gộp:


Bài đã được tự động gộp:


Dạ em cảm ơn anh. Nhưng chắc anh hiểu nhầm ý em mất rồi.
Em muốn lấy dữ liệu các hàng bên Sheet Raw Data Report chuyển qua các cột Sheet Facebook(T8) với điều kiện khớp "Tên chiến dịch" ạ.
Ví dụ. Ở Sheet Raw Data Report có hàng với Tên chiến dịch PĐL - Lì xì đầu tháng 8 - Ủ trắng 99k có các cột "Tên Chiến Dịch, Số tiền đã chi tiêu, Số lần hiển thị, Số lần nhấp, CPM, Tổng Leads". Em muốn nó chuyển các số liệu qua Sheet Facebook(T8) với các cột tương ứng ạ
Code a hỗ trợ cho em là tính tổng, Anh giúp em với ạ :(:(:(. Em cảm ơn anh
Nhấp chuột vào đây để mở rộng...
Bạn giải thích rõ lấy dữ liệu sang kiểu gì nhé.Vì mình không hiểu lấy thế nào.Tại sao nó là số đấy nhé.
À mình hiểu bạn muốn làm là cái nhập liệu nhanh chứ gì.Nó sẽ nhập liệu tiếp tục vào cái bảng của bạn theo dữ liệu bên kia.Ý bạn là vậy đúng không.
 
Lần chỉnh sửa cuối:
snow25 đã viết:
Bạn giải thích rõ lấy dữ liệu sang kiểu gì nhé.Vì mình không hiểu lấy thế nào.Tại sao nó là số đấy nhé.
Nhấp chuột vào đây để mở rộng...
Dạ mỗi ngày em sẽ có 1 file excel là Sheet Raw Data Report, Xong em có 1 file Tổng hợp là Facebook(T8), em muốn nhập dữ liệu từ file Raw Data Report với các trường tương ứng về file Tổng là Facebook(T8) ạ. Dạ chỉ chuyển dữ liệu với các trường khớp chứ không tính toán ạ.
Ví dụ:Ngày 8/8 export 1 file Raw Data Report với các Tên chiến dịch, Số tiền đã chi tiêu, Số lần hiển thị, Số lần nhấp, CPM, Tổng Leads.
Xong file Facebook(T8) sẽ có các 1 số trường tương ứng và em cần nhập dữ liệu vào ngày 8/8 trong file đó ạ
 
trieusimuu đã viết:
Dạ mỗi ngày em sẽ có 1 file excel là Sheet Raw Data Report, Xong em có 1 file Tổng hợp là Facebook(T8), em muốn nhập dữ liệu từ file Raw Data Report với các trường tương ứng về file Tổng là Facebook(T8) ạ. Dạ chỉ chuyển dữ liệu với các trường khớp chứ không tính toán ạ.
Ví dụ:Ngày 8/8 export 1 file Raw Data Report với các Tên chiến dịch, Số tiền đã chi tiêu, Số lần hiển thị, Số lần nhấp, CPM, Tổng Leads.
Xong file Facebook(T8) sẽ có các 1 số trường tương ứng và em cần nhập dữ liệu vào ngày 8/8 trong file đó ạ
Nhấp chuột vào đây để mở rộng...
Vậy còn thiếu 1 chức dữ liệu của bạn là điền vào ngày nào nữa.Mà nếu nó trùng thì sẽ sử lý như thế nào.Bạn làm xong ý tưởng của bạn hoàn thiện đi rồi mai mình viết code cho nhé.Giờ về rồi.
 
snow25 đã viết:
Vậy còn thiếu 1 chức dữ liệu của bạn là điền vào ngày nào nữa.Mà nếu nó trùng thì sẽ sử lý như thế nào.Bạn làm xong ý tưởng của bạn hoàn thiện đi rồi mai mình viết code cho nhé.Giờ về rồi.
Nhấp chuột vào đây để mở rộng...
Dạ mỗi ngày là 1 file khác nhau và nhập vào từng ngày bên file Tổng nên em nghĩ không trùng được ạ. Dạ mai anh giúp em với ạ. Em cảm ơn anh nhiều ạ
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện. (1 người xem)
Trả lời
13
Đọc
96
Hoàng Tuấn 868
H
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô (1 người xem)
Trả lời
7
Đọc
175
Gà Công Nghệ
Gà Công Nghệ
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt (1 người xem)
    • Thích
    • Yêu thích
2
Trả lời
20
Đọc
1K
Mr.hieudoanxd
Mr.hieudoanxd
P
Excell code vba : Tìm Cell để sửa dữ liệu
    • Buồn
2
Trả lời
26
Đọc
520
Phạm Trường 80
P
L
Lỗi font khi convert từ pdf (2 người xem)
Trả lời
1
Đọc
53
Hoàng Tuấn 868
H
D
Nhờ anh em giúp đỡ.
    • Buồn
Trả lời
2
Đọc
76
SA_DQ
SA_DQ
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
2
Đọc
75
DeTong
D
H
Đổi số thành chữ trong office 365
Trả lời
19
Đọc
1K
HoangTan891026
H
Gà Công Nghệ
Lấy dữ liệu file excel từ sheet này sang sheet khác
Trả lời
4
Đọc
129
Gà Công Nghệ
Gà Công Nghệ
N
Mong mọi người giúp đỡ
Trả lời
1
Đọc
59
minhminh27
minhminh27
minhduc1o2
Excel lỗi font Time New Roman+
Trả lời
7
Đọc
116
minhduc1o2
minhduc1o2
F
  • Question Question
Tự động Merge Mail bằng VBA (1 người xem)
Trả lời
0
Đọc
75
fujishima
F
H
Lọc dữ liệu trong XL
    • Cười
Trả lời
0
Đọc
46
huong.dinh
H
giaiphap
Add-Ins hổ trợ Word trộn danh sách và lưu ra nhiều tệp tin khác nhau.
    • Thích
    • Yêu thích
    • Cảm ơn
2
Trả lời
39
Đọc
9K
fujishima
F
K
xin file excel bảng đấu bóng đá
    • Yêu thích
2 3
Trả lời
40
Đọc
25K
subin1905
S
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
24
Đọc
7K
chihuumvc
C
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
1
Đọc
65
bebo021999
B
G
Hướng dẫn Lập danh sách File
    • Không thích
Trả lời
16
Đọc
267
thanhhuy_hvnh
thanhhuy_hvnh
baolong240793
Nhờ Anh/Chị hỗ trợ em hàm Randbetween() với ạ. (1 người xem)
Trả lời
4
Đọc
361
bebo021999
B
Y
  • Question Question
Khóa VBA với mật khẩu mở
    • Thích
2 3 4
Trả lời
60
Đọc
5K
PhanTuHuong
PhanTuHuong
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom