Need to edge out the competition for your dream job? Train for certifications today.
Dim lr As Long, i As Long, j As Long
Dim x, y()
Dim NumStr As String
Application.ScreenUpdating = False
lr = Cells(Rows.Count, "CC").End(xlUp).Row
x = Range("CC7:CD" & lr).Value
ReDim y(1 To UBound(x, 1), 1 To 1)
For i = 1 To UBound(x, 1)
If Not IsError(x(i, 1)) And Not IsError(x(i, 2)) Then
If x(i, 1) <> "" And x(i, 2) <> "" Then
If IsNumeric(x(i, 1)) And IsNumeric(x(i, 2)) Then
y(i, 1) = x(i, 1) & x(i, 2)
Range("CE7:CE" & UBound(x, 1)).NumberFormat = "@"
Range("CE7").Resize(UBound(x, 1), 1).Value = y
Application.ScreenUpdating = True
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.