Почему код выполняется правильно только один раз?

[Questru]

Добрый день!

Написал макрос.

Sub Test()

Cells(3, 20) = Cells(7, 8)
Cells(3, 20).Select
Selection.TextToColumns , DataType:=xlDelimited, Comma:=True

cell_var_all = Cells(3, Columns.Count).End(xlToLeft).Column
step = 4
For cell_var = 20 To cell_var_all

If InStr(1, Cells(3, cell_var), "/", vbTextCompare) > 0 Then
Cells(step, 20) = Cells(3, cell_var)
Cells(step, 20).Select
Selection.TextToColumns , DataType:=xlDelimited, Other:=True, OtherChar:="/"
step = step + 1
Cells(3, cell_var).ClearContents
End If
Next cell_var

End Sub

При первом запуске работает всё ок.
Когда запускаю второй раз, создается впечатление, что он выполняет вот такой код:

Cells(3, 20) = Cells(7, 8)
Cells(3, 20).Select
Selection.TextToColumns , DataType:=xlDelimited, Comma:=True, Other:=True, OtherChar:="/"

В чем косяк?

П.С.
Если закрыть и открыть файл, то все возвращается на круги своя, но только до второго раза.
Комп ребутал...

[DiemonStar]

Выкладывайте пример файла. Не зная, что находится в ячейках, сложно вам ответить. Проблема скорее не в самом макросе, а в данных.

[Questru]

Файл в прищепке.

П.С.
Да и почему он при подсчете возвращает только 1, а не 2...

[DiemonStar]

У вас после первого запуска макроса разделяет не только по запятым, но и по слешам.

посмотрите вложение, я там немного переделал ваш макрос.

[Questru]

Сообщение от DiemonStar

У вас после первого запуска макроса разделяет не только по запятым, но и по слешам.

посмотрите вложение, я там немного переделал ваш макрос.

Большое спасибо!

Фига себе немного =) теперь буду разбираться, что там и чего значит =)

[Questru]

Более внимательно посмотрел макрос, он выполняет малость не то что нужно...
1. После первого разбиения, на новые строки он должен переносить значения ячеек только тех, которые содержат символ "/"

2. Ну и хотелось бы понять почему именно мой способ глючит...
Если я вообще всю удаляю и оставляю только

Cells(3, 2) = Cells(1, 1)
Cells(3, 2).Select
Selection.TextToColumns , DataType:=xlDelimited, Comma:=True

то он, редиска, все равно разбивает даже по символу "/"

[DiemonStar]

Sub Test()
  Dim A$(), B$()
  S = [A1]
  A = Split(S, ",")
  I = 1
  [A2].Offset(I) = I
  For Each El In A
    J = 1
    If InStr(1, El, "/", vbTextCompare) > 0 Then
      B = Split(El, "/")
      For Each El2 In B
        [A2].Offset(I, J) = El2
        J = J + 1
      Next El2
      [A2].Offset(I) = I
    Else
      [A2].Offset(1, I) = El
    End If
    I = I + 1
  Next El
End Sub

можно немного поменять.

[Questru]

Сообщение от DiemonStar

Sub Test()
  Dim A$(), B$()
  S = [A1]
  A = Split(S, ",")
  I = 1
  [A2].Offset(I) = I
  For Each El In A
    J = 1
    If InStr(1, El, "/", vbTextCompare) > 0 Then
      B = Split(El, "/")
      For Each El2 In B
        [A2].Offset(I, J) = El2
        J = J + 1
      Next El2
      [A2].Offset(I) = I
    Else
      [A2].Offset(1, I) = El
    End If
    I = I + 1
  Next El
End Sub

можно немного поменять.

Спасибо!
А как в S = [A1] единицу поменять на переменную или, вообще, А1 заменить на более удобноваримую для меня форму cells(row,column)

[DiemonStar]

например, так:

S = Range("$A$"&Var)

где Var - переменная
а можно так:

S = [A1].offset(RowShift, ColumnShift)

где RowShift - смещение по строкам ( =Var-1 из предыдущего примера)
ColumnShift - смещение по столбцам