Macro STR_GapFromAlig

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

  Sub Str_GapFromAlig()

   For i = 1 To 255 Step 1
       If IsEmpty(Sheets("Alig").Cells(i, 1)) Then Exit For
   
       For j = 3 To 153 Step 1
           If Sheets("Alig").Cells(i, j) Like "." Then
'               Worksheets("Label").Cells(j, i).Insert Shift:=xlDown
'               Worksheets("SEQ").Cells(j, i).Insert Shift:=xlDown
               Worksheets("X").Cells(j, i).Insert Shift:=xlDown
               Worksheets("Y").Cells(j, i).Insert Shift:=xlDown
               Worksheets("Z").Cells(j, i).Insert Shift:=xlDown
           End If
       Next j
'

   Next i
End Sub