Question

我现在有一个大问题。我必须整理出一张带有名字的Excel表格。始终以相同的顺序彼此跟随名字和姓氏。每个名称都填充一个单元格。这些单元格在一行中排列。实施例

比尔| Cospy |詹姆斯|邦德|乔治|克罗尼|迈克尔|杰克森

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

比尔科斯基郎詹姆斯邦德乔治克隆尼迈克尔杰克逊

有人可以写我这样做的脚本吗？

（我采用Visual Basic或Applescript，没关系）

Answer 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

VisualBasic（或Applescript）Excel表格使用名称排序

1 个答案: