VisualBasic（或 Applescript）Excel 工作表按名称排序答案

【问题标题】：VisualBasic (or Applescript) Excel Sheet sorting with namesVisualBasic（或 Applescript）Excel 工作表按名称排序
【发布时间】：2010-12-02 09:03:51
【问题描述】：

我现在有一个大问题。我必须整理出一张带有名字的 Excel 表格。总是有一个名字和一个姓氏以相同的顺序相互跟随。每个名称填充一个单元格。这些单元格排成一行。示例

比尔|科斯皮|詹姆斯|邦德|乔治|克隆|迈克尔|杰克逊

现在我希望将每个名字和第二个名字汇总到一个单元格中，然后将下一个名字和第二个名字用于相同的过程。结果应该是这样的：

比尔·科斯比
詹姆斯邦德
乔治克隆
迈克尔杰克逊

有人可以给我写一个脚本吗？

（我用的是Visual basic或者Applescript，没关系）

【问题讨论】：

有人可以为此写一个脚本吗？你自己不会做任何尝试，只是请别人为你做？
我同意，这听起来像是对完整功能的请求，对如何完成一项特定任务没有帮助。
很抱歉这么利用，但我时间紧迫，不知道如何写好VB脚本。我正在尝试在这一刻写一个，但如果没有基础知识，我只会在一周内成功，我需要非常紧急的解决问题的方法。所以我来到这个社区，希望有人能破例，在这种糟糕的情况下帮助我。

标签： excel vba sorting applescript

【解决方案1】：

在 Excel VBA 中

Dim curRow As Integer
Dim curCol As Integer

curRow = 1
curCol = 1

For Each c In Range("1:1") 'target row number'

    If c.Value = "" Then 'we have hit a blank cell in target row'
        Exit Sub
    End If

    Cells(curRow, curCol).Value = c.Value

    curCol = curCol + 1
    If curCol = 3 Then
       curRow = curRow + 1
       curCol = 1
    End If

Next c

【讨论】：

非常感谢您在这种微妙情况下的有益合作！你是一个真正的救星;)