VisualBasic（或Applescript）Excel工作表排序与名称

-3

我在这一刻有一个大问题。我不得不整理一个名为其中的Excel工作表。总是有一个名字和一个姓氏以相同的顺序在彼此之后。每个名称都填充一个单元格。这些单元格被排列在一行中。例如VisualBasic（或Applescript）Excel工作表排序与名称

比尔| Cospy |詹姆斯|邦德|乔治|集落|迈克尔| Jacksson

现在我想每一个名字和第二名字被归纳为一个单元格，然后下一个名字和第二名字取为相同的程序。结果应该是这样的：

比尔Cospy
詹姆斯·邦德
乔治集落
迈克尔·杰克逊

能有人给我写脚本，做到这一点？

（我把Visual Basic或AppleScript的，没关系）

来源

2009-09-29 elhombre

能有人给你写这个脚本？你不打算做任何尝试，只是要求某人为你做这件事？ – Gratzy 2009-09-29 15:43:56

我同意，这听起来像一个完整的功能请求无助于如何完成一项特定的任务。 – 2009-09-29 15:52:41

对不起，要求如此利用，但我有时间压力，不知道如何编写一个VB脚本。我正在尝试在这一刻写一篇，但没有基础知识，我只能在一周内成功，我需要非常紧迫的解决方案。所以我来到了这个社区，希望有人会在这种不好的情况下做出例外和帮助我。 – elhombre 2009-09-29 16:02:18

在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

来源

2009-09-29 16:53:14 Mark

非常感谢您在这种微妙的情况下的有益合作！你是一个真正的现场救星;） – elhombre 2009-10-01 09:03:40

VisualBasic（或Applescript）Excel工作表排序与名称

回答

相关问题