-
N-sheets
以G列分成多个工作表(以宏运行VBA)
(Sub aa()
Dim a As Integer, b As Integer, c As Integer, sh As Worksheet
For a = 2 To [g65536].End(3).Row
If Cells(a, 7) <> Cells(a- 1, 7) Then
b = a
End If
c = Range("g:g").Find(Cells(a, 7), , , , , xlPrevious).Row
Set sh = Sheets.Add(, Sheets(Sheets.Count))
sh.Name = Sheets("sheet1").Cells(a, 7).Value
With Sheets("Sheet1")
Sheets("Sheet1").Range(.Cells(b, 1), .Cells(c, 10)).Copy Destination:=sh.[a2]
Sheets("Sheet1").Range("a1:j1").Copy Destination:=sh.[a1]
a = c
End With
Sheets("Sheet1").Select
Next
End Sub
)
- 2013-05-03 08:50:54下载
- 积分:1
-
FCS
说明: 欧姆龙PLC帧校验,可用于VB与PLC通讯使用(OMRON PLC frame check can be used for communication between VB and PLC)
- 2020-05-18 16:07:46下载
- 积分:1
-
demo
一个C++的垃圾回收器,用于研究垃圾自动回收机制。(The garbage collector is a C++, used to study.)
- 2014-01-10 16:20:05下载
- 积分:1
-
sports1
用于运动会的统计.分数,那女子参赛情况的记录统计.(Statistics for the Games. Scores, and that the situation of the women)
- 2008-05-14 12:42:04下载
- 积分:1
-
MFC_Othell14882010282002
this is small othello game. you can see the source and everything pls download it and learn
- 2012-03-31 21:56:42下载
- 积分:1
-
BST1
运用伸展树的特性,每次插入新的结点后,调用展开函数,使得新结点成
为所建树的根结点。(Use of the characteristics of the splay tree, each time you insert a new node, call to function, making the new node into
For the achievements of the root.)
- 2012-03-17 22:55:35下载
- 积分:1
-
计算刀轴点坐标
说明: 计算刀轴点坐标,方便快捷,求取刀具刀轴点坐标,用于算nurbs曲线(Calculating the coordinates of cutter axis points is convenient and fast. Calculating the coordinates of cutter axis points is used to calculate NURBS curve.)
- 2019-05-22 14:47:00下载
- 积分:1
-
O文件修改例子
说明: ETC中文对照,对于简单的方式,用这个即可(Chinese control, ETC for a simple way, use this)
- 2021-02-11 23:49:51下载
- 积分:1
-
e440190239
安捷伦频谱分析仪编程指南,有完整的例子,对GPIB编程有帮助(ESA Spectrum Analyzers Programmer s Guide)
- 2009-02-22 19:33:52下载
- 积分:1
-
Desktop
说明: trinitycore files for source code of class 'creature'
- 2017-07-30 22:53:28下载
- 积分:1