用数组的方式运行cell.Value = WorksheetFunction.Clean(Trim(cell.Value))

这是一个将单元格中的字符串清洗并去除空格后，存储到数组中的方法。您需要先定义一个数组，然后使用 For Each 循环语句遍历单元格区域，将每个单元格的值清理并存储到数组中。以下是示例代码：

Dim myArray() As String
Dim cell As Range
Dim i As Long

'定义数组大小
ReDim myArray(1 To Selection.Cells.Count)

'遍历单元格并将值存储到数组中
i = 1
For Each cell In Selection.Cells
    myArray(i) = WorksheetFunction.Clean(Trim(cell.Value))
    i = i + 1
Next cell

请注意，此代码中的 `Selection` 表示选定的单元格区域，您可以根据需要修改为具体的单元格范围。另外，您可以根据需要修改数组的定义和大小，以适应实际情况。