Как в макросе Excel сохранения в CSV добавить кавычки к текстовым полям в которых есть пробел?

Question

[iminby]

Подскажите, какое условие нужно добавить в данном макросе, чтобы кавычки добавлялись лишь к текстовым строкам, в которых больше одного слова:

Sub SaveAsCSVinQuotes()
Dim r As Range, c As Range, s As String
s = Application.GetSaveAsFilename(, "CSV Files (*.csv),*.csv,All Files (*.*),*.*", , "Сохранение в формате CSV в кавычках")
If s = "False" Then Exit Sub
Open s For Output As #1
For Each r In ActiveSheet.UsedRange.Rows
s = ""
For Each c In r.Cells
s = s & ";" & """" & c & """"
Next
Print #1, Mid$(s, 2)
Next
Close #1
End Sub

Comments

[Модератор]

iminby, дорогой пользователь, настоятельно рекомендуем еще раз обратить самое пристальное внимание на п. 3.1 регламента работы сервиса (и, в особенности, на его последний абзац).
В противном случае, ваши вопросы будут удаляться по причине тег-спама, а систематические нарушения приведут к блокировке учетной записи.

Answer 1

[Антон Киселёв]

=ЕСЛИ(ДЛСТР(СЖПРОБЕЛЫ(A2))=0;0;ДЛСТР(СЖПРОБЕЛЫ(A2))-ДЛСТР(ПОДСТАВИТЬ(A2;" ";""))+1)

Эта формула определяет число слов в ячейке. Если есть пробел — значит, число слов => 2.
Переводите в англ. язык и вставляете в ваш цикл.