Hỏi về công thức lấy giá trị ô so le (1 người xem)

[hoclaptrinh]

Ở sheet 1 có 1 cột từ A1-A10, bên sheet 2 cần lấy giá trị như sau: sheet2!A1=sheet1!A1, sheet2!A3=sheet1!A2, ... sheet2!A18=sheet1!A10

 

[Nguyễn Hồng Quang]

!Rename hoclaptrinh to hoctrinhbay....!

 

[hoclaptrinh]

Sory a! để e gửi file a xem dùm e

 

[Horse]

Theo quy luật đó thì sheet2!A19=sheet1!A10 chứ nhỉ

 

[hoclaptrinh]

Sheet2!A28=sheet1!A10

 

[hoclaptrinh]

Có ai giúp ko????

 

[lehuong1409]

Sory a! để e gửi file a xem dùm e

bạn thử công thức này xem

=IFERROR(INDIRECT("Sheet1!A"&1/3*ROW(A1)+2/3);"")

hoặc

=IFERROR(INDIRECT("Sheet1!A"&1/3*ROW(A1)+2/3),"")

tùy theo định dạng máy bạn

 

[Horse]

Sheet2!A28=sheet1!A10

Vậy bạn xem thử cái này

Sub Laydulieu()
    Dim Dulieu(), Ketqua(), I As Long, K As Long, N As Long
    N = 2
With Sheet1
    Dulieu = .Range("A1", .Range("A" & Rows.Count).End(3)).Value
End With
ReDim Ketqua(1 To Rows.Count, 1 To 1)
For I = 1 To UBound(Dulieu)
    K = K + 1
    Ketqua(K, 1) = Dulieu(I, 1)
    K = K + N
Next I
With Sheet2
    .Range("A1").Resize(K, 1) = Ketqua
End With
End Sub

Lần sau không được viết từ này Sory a! nữa nha. Không thì nghỉ chơi đó

 

[hoclaptrinh]

Cho mình hỏi thêm tí, máy mình dùng win10 nhưng không chạy được code thì phải làm sao?

 

[hoclaptrinh]

bạn thử công thức này xem

=IFERROR(INDIRECT("Sheet1!A"&1/3*ROW(A1)+2/3);"")

hoặc

=IFERROR(INDIRECT("Sheet1!A"&1/3*ROW(A1)+2/3),"")

tùy theo định dạng máy bạn

Giải thích cho mình hiểu ("Sheet1!A"&1/3*ROW(A1)+2/3);"") chổ 1/3 và 2/3 với

 

[lehuong1409]

Giải thích cho mình hiểu ("Sheet1!A"&1/3*ROW(A1)+2/3);"") chổ 1/3 và 2/3 với

chỗ trong ngoặc kép là phần sẽ giữ nguyên không thay đổi, còn chỉ thay đổi số đằng sau thôi
tùy theo bài của bạn mình làm một phương trình đơn giản kiểu như tại dòng 1 sheet 2 thì lấy dòng 1 sheet 1, dòng 4 sheet 2 thì lấy dòng 2 sheet 1
x+y=1
4x+y=2
suy ra x=1/3; y=2/3
hơi củ chuối tí nhưng ra kết quả là đc rồi

 

[hoclaptrinh]

Nhưng mình coppy vào bảng tính và sửa lại là dòng 1 sheet 2 thì lấy dòng 7 sheet 1, dòng 4 sheet 2 thì lấy dòng 8 sheet 1 thì kết quả vẫn lấy giá trị dòng 1 sheet 2 thì lấy dòng 1 sheet 1, dòng 4 sheet 2 thì lấy dòng 2 sheet 1

 

[hoclaptrinh]

Vậy bạn xem thử cái này

Sub Laydulieu()
    Dim Dulieu(), Ketqua(), I As Long, K As Long, N As Long
    N = 2
With Sheet1
    Dulieu = .Range("A1", .Range("A" & Rows.Count).End(3)).Value
End With
ReDim Ketqua(1 To Rows.Count, 1 To 1)
For I = 1 To UBound(Dulieu)
    K = K + 1
    Ketqua(K, 1) = Dulieu(I, 1)
    K = K + N
Next I
With Sheet2
    .Range("A1").Resize(K, 1) = Ketqua
End With
End Sub

Lần sau không được viết từ này Sory a! nữa nha. Không thì nghỉ chơi đó

excel trên win 10 thì phải làm sao để chạy được code vậy??(không biết a hay c luôn...)

 

[lehuong1409]

Nhưng mình coppy vào bảng tính và sửa lại là dòng 1 sheet 2 thì lấy dòng 7 sheet 1, dòng 4 sheet 2 thì lấy dòng 8 sheet 1 thì kết quả vẫn lấy giá trị dòng 1 sheet 2 thì lấy dòng 1 sheet 1, dòng 4 sheet 2 thì lấy dòng 2 sheet 1

bạn thay 2/3 thành 20/3. bạn cứ làm phương trình như mình chỉ ở trên ý, nó ra mà