hỏi cách lấy dữ liệu ở một ô và chỉ cho nhảy theo quy định (1 người xem)

[kiencang76]

Kính chào cả nhà!
Tôi có một vấn đề cần giúp đỡ.
Bài toán như sau:
tại sheet 1, tôi có 1 danh sách được ghi thành từng dòng, mỗi dòng tương ứng 1 record (nhằm quản lí cho tiện ở trên máy)
ở sheet 2: tôi muốn lấy dữ liệu của Sheet, nhưng lại tổ chức theo khối ô trong 1 cột với dữ liệu tương ứng với các cột của sheet 1 nhưng lại tổ chức theo dòng => cái này khó nói cho các bạn hiểu quá
-Sheet (s1) tổ chức theo kiểu hoten, náminh, gtinh....que quan, nghe nghiep.....: mỗi dữ liệu thành 1 cột
- Sheet 2 (s2) tổ chức theo kiểu: cột a: ho ten, nsinh, cột b:quequan, cư trú, nghe nghiẹp...... (mẫu quản lí bằng giấy ^^)
tôi muốn lấy dữ liệu của s1 điền tự động vào s2, xong một vấn đề là excell tự động nhảy nếu các dòng tương ứng trong s2, ở đây là 3 dòng.
Vậy làm sao chỉ cho excell chỉ nhảy từng dòng 1, khi bên s2 nhảy 3 dòng, mong được chỉ giáo
cảm ơn nhiều nhiều
gởi kèm theo files

 

[hoangvuluan]

Với cách bố trí dữ liệu của bạn thì có nhiều cách để lấy dữ liệu từ sheet1 sang sheet2, ở đây có thể dùng hàm Indirect chẳng hạn. Bạn xem kết quả trong file đính kèm nhé!

 

[Ba Tê]

Kính chào cả nhà!
Tôi có một vấn đề cần giúp đỡ.
Bài toán như sau:
tại sheet 1, tôi có 1 danh sách được ghi thành từng dòng, mỗi dòng tương ứng 1 record (nhằm quản lí cho tiện ở trên máy)
ở sheet 2: tôi muốn lấy dữ liệu của Sheet, nhưng lại tổ chức theo khối ô trong 1 cột với dữ liệu tương ứng với các cột của sheet 1 nhưng lại tổ chức theo dòng => cái này khó nói cho các bạn hiểu quá
-Sheet (s1) tổ chức theo kiểu hoten, náminh, gtinh....que quan, nghe nghiep.....: mỗi dữ liệu thành 1 cột
- Sheet 2 (s2) tổ chức theo kiểu: cột a: ho ten, nsinh, cột b:quequan, cư trú, nghe nghiẹp...... (mẫu quản lí bằng giấy ^^)
tôi muốn lấy dữ liệu của s1 điền tự động vào s2, xong một vấn đề là excell tự động nhảy nếu các dòng tương ứng trong s2, ở đây là 3 dòng.
Vậy làm sao chỉ cho excell chỉ nhảy từng dòng 1, khi bên s2 nhảy 3 dòng, mong được chỉ giáo
cảm ơn nhiều nhiều
gởi kèm theo files

Tham gia bằng VBA, mở sheet GPE là có dữ liệu mới cập nhật.
Nhớ Enable Macros.

Public Sub GPE()
Dim Rng(), Arr(), I As Long, K As Long
    Rng = Sheet1.Range(Sheet1.[A3], Sheet1.[A65000].End(xlUp)).Resize(, 27).Value
ReDim Arr(1 To UBound(Rng, 1) * 3, 1 To 7)
    For I = 1 To UBound(Rng, 1)
            K = K + 1
        Arr(K, 1) = Rng(I, 1): Arr(K, 2) = Rng(I, 2): Arr(K, 3) = Rng(I, 5): Arr(K, 6) = "Kinh"
        Arr(K, 4) = Rng(I, 17): Arr(K, 5) = Rng(I, 20) & "/" & Rng(I, 21): Arr(K, 7) = Rng(I, 8)
            K = K + 1
        Arr(K, 2) = Rng(I, 4): Arr(K, 3) = Rng(I, 6) & "-" & Rng(I, 7): Arr(K, 4) = Rng(I, 18)
        Arr(K, 5) = Rng(I, 22) & "/" & Rng(I, 23): Arr(K, 6) = "Không": Arr(K, 7) = Rng(I, 10)
            K = K + 1
        Arr(K, 4) = Rng(I, 19): Arr(K, 5) = Rng(I, 24): Arr(K, 6) = Rng(I, 14)
    Next I
        Sheets("GPE").[A4:G10000].ClearContents
        Sheets("GPE").[A4].Resize(K, 7).Value = Arr
End Sub