将选择的内容每一个单元格用“|”分开

splitUsingPipe.vba

Sub formattable()
Dim rgname As Range
Set rgname = Application.InputBox("选择需要输出的区域", "选择区域", Type:=8)

rownow = rgname.Row
For Each cell In rgname
    If cell.Row <> rownow Then
        rownow = rownow + 1
        result = result & vbNewLine &   application.WorksheetFunction.Clean(cell.Value) & "|"
    Else
        result = result &   application.WorksheetFunction.Clean(cell.Value) & "|"
    End If
Next cell
   ' Debug.Print result
  on error goto nomsforms    
  Dim clip As MSForms.DataObject
  Set clip = New MSForms.DataObject
  clip.SetText result
  clip.PutInClipboard

nomsforms:
    msgbox "不能复制到剪贴板，请按ALT+F11，然后按Ctrl + G查看结果"
    debug.print result

End Sub