Xin chỉ giúp cách lấy dữ liệu của cột ???

[quangthanhdu]

Từ dữ liệu đã cho làm sao phân loại và ghi giá trị cho đúng vào từng nhóm, nội dung như trong file excel, mong mọi người giúp!Chân thành cảm ơn.

 

[ndu96081631]

Từ dữ liệu đã cho làm sao phân loại và ghi giá trị cho đúng vào từng nhóm, nội dung như trong file excel, mong mọi người giúp!Chân thành cảm ơn.

Làm đại, hên thì trúng:

=IF(MOD($D7,1000)=0,"KM"&INT($D7/1000),IF(MOD($D7,100)=0,"H"&MOD(INT($D7/100),10),"C"&COUNTIF($G$6:$G6,"C*")+1))

 

[dat_butmuc]

Từ dữ liệu đã cho làm sao phân loại và ghi giá trị cho đúng vào từng nhóm, nội dung như trong file excel, mong mọi người giúp!Chân thành cảm ơn.

Bạn dùng tạm công thức sau, bắt đầu từ F7 rồi kéo xuống:

=IF(MOD(D7,1000)=0,"KM"&D7/1000,IF(MOD(D7,100)=0,"H"&MOD(D7,1000)/100,"C"&COUNTIF($F$6:F6,"C*")+1))

 

[SA_DQ]

Option Explicit
Sub LapGiaTri()
 Dim Cls As Range
 Dim Ngan As Byte, Tram As Byte, CLai As Long
 For Each Cls In Range([A3], [A65500].End(xlUp))
   If Cls.Value Mod 10 ^ 3 = 0 Then
      Ngan = Ngan + 1:        Tram = 0
      With Cells(Cls.Row, "G")
         .Value = "KM" & Ngan
         .Interior.ColorIndex = 38
      End With
   ElseIf Cls.Value Mod 100 = 0 Then
      Tram = Tram + 1
      With Cells(Cls.Row, "G")
         .Value = "H" & Tram
         .Font.ColorIndex = 3
      End With
   Else
      CLai = CLai + 1
      Cells(Cls.Row, "G").Value = "C" & CLai
   End If
 Next Cls
End Sub