Hỏi về cách chuyển dữ liệu từ bảng này sang bảng khác?

Liên hệ QC

vietsuccess

Thành viên mới
Tham gia
28/5/07
Bài viết
1
Được thích
0
Các cao thủ làm ơn chỉ giáo cho mình!!!

Xin chào anh chị em!

Mình có 2 bảng dữ liệu, trong đó dữ liệu của cột A trong table 1 là tập con của cột I trong table 2. Mình muốn chuyển các giá trị của cột B, C tương ứng với từng mã trong cột A về cột J và K. Nếu một mã nào đó trong cột A không có trong cột I thì giá trị cột J và K tương ứng là bằng 0 hoặc để trống.

Mình chưa biết cách làm như thế nào. Mong các cao thủ chỉ giáo!!! Xin cảm ơn rất nhiều. Email của mình là vietsuccess@yahoo.com

Chúc anh chị em một ngày tốt lành!

___________________________

Bạn nhớ đặt đề tài cho phù hợp với nội dung câu hỏi ở bài sau nha!. Bạn xem chi tiết hướng dẫn tại đây và tại đây nha.
 

File đính kèm

  • Book1.xls
    24 KB · Đọc: 108
Chỉnh sửa lần cuối bởi điều hành viên:
vietsuccess đã viết:
Xin chào anh chị em!

Mình có 2 bảng dữ liệu, trong đó dữ liệu của cột A trong table 1 là tập con của cột I trong table 2. Mình muốn chuyển các giá trị của cột B, C tương ứng với từng mã trong cột A về cột J và K. Nếu một mã nào đó trong cột A không có trong cột I thì giá trị cột J và K tương ứng là bằng 0 hoặc để trống.

Mình chưa biết cách làm như thế nào. Mong các cao thủ chỉ giáo!!! Xin cảm ơn rất nhiều. Email của mình là vietsuccess@yahoo.com

Chúc anh chị em một ngày tốt lành!

Cách đơn giản là dùng hàm tham chiếu : Index, Match -- Vloopkup

Bạn tham khảo nhé.
 

File đính kèm

  • In.xls
    86.5 KB · Đọc: 168
cách nội suy trong cac bảng tính
Public Function Ns1(Mx, My, x, n) As Variant
Dim I As Integer
If Mx(1) < Mx(n) Then
If (x > Mx(n) Or x < Mx(1)) Then
Ns1 = "Ngoai bang"
Exit Function
End If
Else
If (x < Mx(n) Or x > Mx(1)) Then
Ns1 = "Ngoai bang"
Exit Function
End If
End If
For I = 1 To n - 1
If (x - Mx(I)) * (x - Mx(I + 1)) <= 0 Then
Ns1 = My(I) - (My(I) - My(I + 1)) * (Mx(I) - x) / (Mx(I) - Mx(I + 1))
End If
Next
End Function
Public Function Ns2(Zij, Xi, yj, x, y, sohang, socot) As Variant
'Dim Cv(1 To 200) As Double
'Dim a(1 To 200) As Double
Dim i, j As Integer
Dim z1, z2 As Double
'Tim vi tri Xi, Yj
j = 0
Do
j = j + 1
Loop Until ((x - Xi(j)) * (x - Xi(j + 1)) <= 0 Or j = socot)
i = 0
Do
i = i + 1
Loop Until ((y - yj(i)) * (y - yj(i + 1)) <= 0 Or i = sohang)
If (i = sohang Or j = socot) Then
NOISUY2CHIEU = "False"
Else
z1 = Zij(i, j) + (x - Xi(j)) * (Zij(i, j + 1) - Zij(i, j)) / (Xi(j + 1) - Xi(j))
z2 = Zij(i + 1, j) + (x - Xi(j)) * (Zij(i + 1, j + 1) - Zij(i + 1, j)) / (Xi(j + 1) - Xi(j))
Ns2 = z1 + (y - yj(i)) * (z2 - z1) / (yj(i + 1) - yj(i))
End If
End Function
 
Theo tôi nên thay những hàm index bằng Vlookup thì gọn hơn
VD: =IF(ISERROR(MATCH($I9,MaCK,0))=FALSE,VLOOKUP(I9,$A$10:$C$75,2,0),"")
 
Web KT
Back
Top Bottom