-
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
-
2013_BEPS_GLOBAL_REVISE_5_4
陆地生态系统碳源汇动态模拟
碳循环 净生产力 总生产力(Terrestrial ecosystem carbon exchange dynamics simulation)
- 2021-01-14 15:58:46下载
- 积分:1
-
用于配电网重构的粒子群算法IEEE33
用于配电网重构的粒子群算法,可以供大家参考(Particle swarm optimization for distribution network reconfiguration)
- 2020-07-05 16:59:00下载
- 积分:1
-
string
String类,分享一下。可以实现==, >, <, [], <<, Trim, Reverse, Find, upper, lower等功能(String脌脿 拢 卢 脰脧铆脪 禄脧脗 隆 拢 驴 脡脪脭脢渭脧脰 ==,)
- 2008-04-10 00:34:21下载
- 积分:1
-
snake
snake--用VC++写的游戏,按上下左右控制方向(snake with VC++ write the game, press the control up and down about the direction of)
- 2008-07-10 20:51:20下载
- 积分:1
-
Bi-pending-non-farm
非农大数据时候、使用这个双向挂单策略实现盈利、实盘应用,你可以拿来免费使用(Large non-farm data when using this strategy profitable bi-pending, firm application, you can bring free use)
- 2016-08-26 11:01:30下载
- 积分:1
-
20110716193957001 (1)
串口检测,实现串口数据的检测,对发送的数据进行读取(Serial Port Detection,Realize the detection of serial data and read the transmitted data)
- 2020-06-17 10:40:02下载
- 积分:1
-
ADXL345
三轴加速度传感器的全套资料。应用前景广。消费电子 工业电子 都有用(Full three-axis accelerometer data. Wide application prospects. Consumer electronics industry has used electronic)
- 2011-11-08 15:12:08下载
- 积分:1
-
simulink-congtrol-system
精通simulink系统仿真与控制 沈辉编著 北京大学出版社(Proficient in simulink simulation and control system)
- 2011-05-23 15:24:23下载
- 积分:1
-
BASEFILE_11_06
解算接收机伪距,载波相位等观测量,从而定位,精度较高,因为没有加载波(compute the carrier s postion)
- 2012-02-27 22:49:42下载
- 积分:1