...
3. Точка (разделитель дробной части) заменяется на запятую Selection.Replace What:=".", Replacement:=","
Замена переносов строки на html-тег
| Code Block | ||
|---|---|---|
| ||
SHEET_INDEX = 1 REPL_COLUMNS = "B:B" REPL_TYPE = 2 sheets(SHEET_INDEX).Columns(REPL_COLUMNS).Select Selection.Replace What:=Chr(13) & Chr(10), Replacement:="<br />", LookAt:=REPL_TYPE, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=Chr(13), Replacement:="<br />", LookAt:=REPL_TYPE, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=Chr(10), Replacement:="<br />", LookAt:=REPL_TYPE, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False |