Несоответствие типов ошибки из-за ведущий апостроф в Excel VBA

Question

Я столкнулся ошибкой

Тип Mismatch

на линии

stSubject = (Sheets("Summary").Cells(i, "AD").Value) + " " + 
      (Sheets("Summary").Cells(i, "AE").Value) + " " + 
      (Sheets("Summary").Cells(i, "AF").Value) + " " + 
      (Sheets("Summary").Cells(i, "AG").Value) + " " + 
      (Sheets("Summary").Cells(i, "AH").Value) + " " + 
      (Sheets("Summary").Cells(i, "AI").Value) 

формата Моего рабочего листа выглядят следующим образом:

Pl легко игнорировать несоответствие имени столбца в качестве кода, приведенного выше. Для ячейки в столбцах P и U вам должен быть апостроф, добавленный в начале ячейки, чтобы я мог отправлять электронную почту с помощью лотоса, используя мой макрос. Во избежание проблем, которые мне нужно добавить апостроф для каждой ячейки, мне нужно либо заставить Excel игнорировать символ апострофа, либо добавить символ автоматически, так что мне любопытно, какой метод вы предпочитаете? И как я могу это решить?

Answer 1

Excel автоматически игнорирует апостроф, так что на самом деле это не проблема.

Попробуйте использовать & вместо +. + работает только как конкатенация, если все входные значения являются строками. Если среди них есть число (или дата), VBA пытается добавить их математически, и вы получите ошибку несоответствия типа.

stSubject = (Sheets("Summary").Cells(i, "AD").Value) & " " & 
      (Sheets("Summary").Cells(i, "AE").Value) & " " & 
      (Sheets("Summary").Cells(i, "AF").Value) & " " & 
      (Sheets("Summary").Cells(i, "AG").Value) & " " & 
      (Sheets("Summary").Cells(i, "AH").Value) & " " & 
      (Sheets("Summary").Cells(i, "AI").Value)