Строка Autosize, содержащая данные, возвращаемые каретой

Question

Я работаю над простой командой импорта VBA для ввода данных с другого листа excel, содержащего данные из используемого средства отчетности. Данные выводятся таким образом, что одна ячейка содержит многострочный текст, как если бы кто-то написал его, используя alt + enter, чтобы получить возврат каретки.

Я попытался авторизовать эти строки, чтобы данные были правильно отображены, но когда я это делаю, это автоматизирует только одну строку текста. Есть ли способ, которым я могу получить автоматизацию для работы с многострочным текстом, желательно через VBA?

Я попробовал этот код, прежде чем использовать AutoSize, но он не работал в связи с вопросом я уже говорил, где авторазмер только делает это одна линия

For counter = 1 To entries 

    Rows(counter).EntireRow.AutoFit 

Next 

EDIT: Я должен упомянуть ячейку в вопросе который должен быть autofit, является объединенной ячейкой, и это текст завернут. Извините, что не включил его ранее.

Answer 1

Если мои ячейки содержат длинный текст, используя строки (счетчик) .EntireRow.AutoFit не сможет отобразить весь текст. Мне нужно, чтобы задать ширину столбцов в их макс перед использованием кода:

Columns("A:AA").ColumnWidth = 200 'depends on possible max width and which columns 
    Columns("A:AA").EntireColumn.AutoFit 

    For counter = 1 To entries 
     Rows(counter).EntireRow.AutoFit 
    Next i 

Answer 2

Может быть, проблема в формате ячеек (обертка)

Попробуйте этот путь

For counter = 1 To entries 
    Rows(counter).WrapText = True 
    Rows(counter).EntireRow.AutoFit 
Next 

EDIT:

Если вы слили клетки на разных строках вы можете попробовать что-то вроде этого:

'I set number of rows and columns only for example 
entries = 10 
LastCol = 20 

Set Rng = Range(Cells(1, 1), Cells(entries, LastCol)) 
For Each mCell In Rng 
    If Not mCell.Value = "" Then 
     If mCell.Address <> mCell.MergeArea.Address Then 
      mStr = CStr(mCell.Value) 
      mLF = 1 
      For x = 1 To Len(mStr) 
       If Mid(mStr, x, 1) = vbCr Or Mid(mStr, x, 1) = vbLf Then 
        mLF = mLF + 1 
       End If 
      Next x 
      mHeight = mLF * 7 'Set the value you need for each line of text 
      Range(mCell.MergeArea.Address).RowHeight = mHeight 
     End If 
    End If 
Next mCell