Я використав нижче код на робочій книзіочистити клітини, які містять багато тексту. Це добре працювало до недавнього часу, коли зміст в одній клітині значно зросла. У свою чергу, замість видалення зайвих простору, він змінює вміст комірки на #value. Це відбувається лише у клітинах із великою кількістю вмісту.
Мені було цікаво, хтось може допомогти пролити світло на чому це може статися? Я не зміг це вирішити.
Dim rng As Range
Dim Area As Range
Dim msg As String
"Selects range to be trimmed
Set rng = ActiveSheet.Range("B14:B2500,D14:E2500,G14:K2500")
"Trim and Clean cell values
For Each Area In rng.Areas
Area.Value = Evaluate("IF(ROW(" & Area.Address & "),CLEAN(TRIM(" & Area.Address & ")))")
Next Area
MsgBox ("Complete")
End Sub
Дуже дякую
Відповіді:
0 для відповіді № 1Нещодавно я мав ту ж проблему з цією формулою. Коли я розглянув варіанти формул для цієї робочої книги, було перевірено типовий стиль R1C1. Я не перевірив його, і формула працює.