Sub 計量表編號()
Dim i ，a
a=1
For i = 7 To 65
If Cells(i, "i") <> "" Then
Cells(i, "G") = "KDGL-JL-01-04-" & a
a=a+1
End If
Next
End Sub