求大神指教以下情况vba怎么写

示例程序代码如下：
Sub 宏1()
Dim arr, arrNew, i&, j&
arr = ActiveSheet.UsedRange
ReDim newArr(1 To UBound(arr), 1 To 1)
For i = 2 To UBound(arr)
newArr(i, 1) = Format(arr(i, 3), "yyyy年m月d日") & "、" & arr(i, 2)
For j = 4 To UBound(arr, 2)
newArr(i, 1) = newArr(i, 1) & arr(1, j) & arr(i, j) & "分、"
Next j
newArr(i, 1) = Left(newArr(i, 1), Len(newArr(i, 1)) - 1) & "。"
Next i
Range("a1").Resize(UBound(arr), 1) = newArr
End Sub

就是一个FOR循环然后把各列的数据并起来就是了

拼接而已，可以不用vba，用函数