Muốn nhập công thức cho 1 cột rồi paste value (1 người xem)

[nonut]

Kính nhờ các bác, em đã tìm đủ mọi cách nhưng không tạo được công thức cho ô N6.

Em cần ô N6 công thức như sau:
N6 =IF(LEFT(E6,2)="AA",IF(LEN(E6)=7,A6,""),"")

Em đã viết VBA như sau:

sodong = ActiveSheet.UsedRange.Rows.Count
{tạo thêm cột N mới để không đè dữ liệu vào cột cũ}
Columns("N:N").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
{nhập công thức cho ô N6}
Range("N6").Formula = "=IF(LEFT(E6,2)=""AA"",IF(LEN(E6)=7,A6,""""),""""))"
{fill ô N6 xuống các ô bên dưới}
Range("N6:N" & sodong).FillDown
{calculate khi ở trên đã disable cái AutoCalcate rồi}
Range("N6:N" & sodong).Calculate
{Copy value vào các ô sau khi calculate}
Range("N6:N" & sodong).Value = Range("N6:N" & sodong).Value

Các bác xem giúp em có lỗi gì ở đâu không với ạ. EM cám ơn các bác.

 

[ndu96081631]

Kính nhờ các bác, em đã tìm đủ mọi cách nhưng không tạo được công thức cho ô N6.

Em cần ô N6 công thức như sau:
N6 =IF(LEFT(E6,2)="AA",IF(LEN(E6)=7,A6,""),"")

Em đã viết VBA như sau:

sodong = ActiveSheet.UsedRange.Rows.Count
{tạo thêm cột N mới để không đè dữ liệu vào cột cũ}
Columns("N:N").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
{nhập công thức cho ô N6}
Range("N6").Formula = "=IF(LEFT(E6,2)=""AA"",IF(LEN(E6)=7,A6,""""),""""))"
{fill ô N6 xuống các ô bên dưới}
Range("N6:N" & sodong).FillDown
{calculate khi ở trên đã disable cái AutoCalcate rồi}
Range("N6:N" & sodong).Calculate
{Copy value vào các ô sau khi calculate}
Range("N6:N" & sodong).Value = Range("N6:N" & sodong).Value

Các bác xem giúp em có lỗi gì ở đâu không với ạ. EM cám ơn các bác.

Thử vầy xem:

Sub Test()
  Dim sodong As Long
  sodong = ActiveSheet.UsedRange.Rows.Count
  Columns("N:N").Insert xlToRight
  With Range("N6:N" & sodong)
    .Value = "=IF(LEFT(RC[-9],2)=""AA"",IF(LEN(RC[-9])=7,RC[-13],""""),"""")"
    .Value = .Value
  End With
End Sub

 

[nonut]

Dear bác

[COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"=IF(LEFT(RC[-9],2)=""AA"",IF(LEN(RC[-9])=7,RC[-13],""""),"""")"[/COLOR]

Không được bác ạ. Nếu em bỏ dấu = trước chữ IF thì nó ra hết các dòng. Nhưng nếu có dấu = thì nó vẫn empty. Em up file lên bác xem giúp em nhé.

 

[hoangvuluan]

Hình như NDU viết nhầm, sửa dòng .Value = "=IF... thành:
.Formula = "=IF(LEFT(RC[-9],2)=""AA"",IF(LEN(RC[-9])=7,RC[-13],""""),"""")"

 

[ndu96081631]

Dear bác

[COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"=IF(LEFT(RC[-9],2)=""AA"",IF(LEN(RC[-9])=7,RC[-13],""""),"""")"[/COLOR]

Không được bác ạ. Nếu em bỏ dấu = trước chữ IF thì nó ra hết các dòng. Nhưng nếu có dấu = thì nó vẫn empty. Em up file lên bác xem giúp em nhé.

File của bạn tôi chạy đâu có vấn đề gì chứ
Để thí nghiệm, bạn thử bỏ dòng .Value = .Value ở dưới xem sao!
--------------

Hình như NDU viết nhầm, sửa dòng .Value = "=IF... thành:
.Formula = "=IF(LEFT(RC[-9],2)=""AA"",IF(LEN(RC[-9])=7,RC[-13],""""),"""")"

Value hay Formula gì cũng được anh à!