Question

windows powershell实现excel的一些操作的代码

现在有一张excel的表格，有很多列，输入：某一个列的列名，输出：根据这个列的不同内容所分出的很多张excel表格。例子：表格内容是学生信息，有姓名、学院、性别，学号这四个信息，根据输入的学院，把原表格分成不同学院的几张表。想要用powershell来实现，怎么实现，求大神帮忙

Answer 1

Excel自带的函数就解决吧 用不着Powershell

追问

是这样的,用excel当然能实现这个功能.但是如果针对比较大的几十MB的文件,用手去做比较麻烦,而且重复性的劳动,如果能写出一个脚本,每次双击一下鼠标就能解决会舒服很多.

Answer 2

表示有点困难。。

Answer 3

大量数据用函数确实不现实，VBA如何？一个快捷键调用宏就解决？有意请注明实际的表格格式及相关信息，我再写。

追问

恩对最近发现ps确实不太好搞就尝试用宏。但是代码不熟悉，我现在的思路是：用一个双层的循环，第二个循环是针对第三列的值进行判断。初始定义一个Zhh并赋值为range("C2")，初始化一个R1=2。循环开始，往下找到值不等于Zhh的range，结束本层循环。获得行数R2。然后进行Rows(“R1,R2”).select，并且R1=R2，进行下面的操作。操作完毕之后继续循环，直到判断range("CX")的值为空，结束。请帮我实现前面提到的过程。

追答

'右击当前表标签，把下列代码贴到VBE窗口，按F5运行，会自动插入工作表，把C列不同的值分开。

Sub tt()
Dim r%, SttR%, stpR%, SttS$
[c2].CurrentRegion.Sort key1:=[c1], order1:=xlAscending, header:=xlYes
With ActiveSheet
SttR = 2: SttS = .[c2] '起始行2，起始筛选值c2
For r = 2 To .[c65536].End(3).Row
If .Cells(r + 1, 3).Value SttS Then
Worksheets.Add after:=Sheets(Worksheets.Count)
Sheets(Worksheets.Count).Name = SttS
Intersect(.UsedRange, .Rows(SttR & ":" & r)).Copy Worksheets(SttS).Range("a2")
SttR = r + 1
SttS = Cells(r + 1, 3).Value
End If
Next r
End With
End Sub

追问

恩,这段代码我用了,确实可以,但是只能循环第一遍,在生成第二个sheet的时候报错了.另外,
Worksheets.Add after:=Sheets(Worksheets.Count)Sheets(Worksheets.Count).Name = SttS
Intersect(.UsedRange, .Rows(SttR & ":" & r)).Copy Worksheets(SttS).Range("a2")
这三句话的意思是不是:根据遍历出来的行数进行sheet的生成,把名字改为stts,并且插入数据?我想问一下,如果想在新生成的表上第一行插入原来表的第一行怎么做?

追答

能走完第一遍循环，应该是程序没大问题。数据如何？ 我写后测试无误，能正确分出三个表。

关于写入第一行标题，建议用一个数组写入，如
Worksheets(SttS).[a1:c1]=array("A","B","C")

追问

走完一个循环是指分出来第一张表,在分第二张表的时候报错了,"运行错误1004"。如果要分得话，应该能分出可能有二十几张表，调试的时候我看stts的值是空的，怎么可能。难道stts=cells(r+1,3).value没有赋值成功么。sttr的值是正确的，是第一张表的最后一个+1，134。

追答

样本邮件 chiefzjh@163.com， 速度

Answer 4

在前