Cách đặt công thức VBA

Chia sẻ bởi:hands

★★★★★

‹ TRONG BỘ CHỨNG TỪ KẾ TOÁN ĐI... Tổng hợp về phương thức tìm kiếm... ›

Quảng cáo

M.n cho mình hỏi mình phải sửa lại công thức như nào để các dòng dưới nó không hiện công thức khi dòng tính là trống ạ6539

Bạn thay thử

Dim Lr&
    With wbmain.Sheets("Rename")
    Lr = .Range("C" & Rows.Count).End(xlUp).Row
    .Range("D3:D" & Lr).Value = "=R1C10&""""&RIGHT(RC[-2],4)&""""&LEFT(RC[-2],2)&""""&RIGHT(RC[-3],4)&""""&LEFT(RC[-3],LEN(RC[-3])-5)&"".pdf"""
    .Range("E3:E" & Lr).Value = "=R1C10&""""&RIGHT(RC[-3],4)&""""&LEFT(RC[-3],2)&""""&RIGHT(RC[-4],4)&""""&RIGHT(R1C10,2)&"".""&RIGHT(RC[-3],4)&"".""&LEFT(RC[-3],2)&"".""&RIGHT(RC[-2],4)&""-""&MID(RC[-2],4,2)&""-""&LEFT(RC[-2],2)&"".""&LEFT(RC[-4],LEN(RC[-4])-5)&"".pdf"""
    Sheets("Rename").Range("D3:D" & Lr).Value = Sheets("Rename").Range("D3:D10000").Value 'Lam an cong thuc
    Sheets("Rename").Range("E3:E" & Lr).Value = Sheets("Rename").Range("E3:E10000").Value  'Lam an cong thuc
   End With