Sub test()
Dim c As Long
For c = 2 To 15000
Range("E" & c) = WorksheetFunction.Concat(Range("b2:b15000"),Range("a2:a15000"),Range("D" & c))
Next c
End Sub
因为您正在组合来自大量单元格的文本,它可能已经超过了一个单元格可以包含32767个字符的字符总数
请尝试缩小合并文本的范围。