Hi,
You can try the following VBA code.
Sincerely ,
ASD
* * *
Sub PutPeriods()
Dim lpString As String
Dim lpActiveString As String
Dim iCount As Integer
lpString = Space(2) & Trim(ActiveCell)
lpActiveString = ""
For iCount = 1 To Len(lpString) Step 1
If iCount Mod 3 <> 0 Then lpActiveString =
Hi,
better to use "Selection.TextToColumns" with text then use "Selection.Copy"
and "Selection.PasteSpecial Transpose:=True"
Sincerely,
ASD
2008/10/1 FF <[EMAIL PROTECTED]>
>
> Hi,
> I am trying to parse data from notepad to excel using VBA macro.
> A, B, C
> Field4 = 8.2
> Field5 = 6.7
> Field