-
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
-
rsi
RSI mt4 mql4 indicator
- 2018-09-28 14:49:28下载
- 积分:1
-
选择最近气象站
说明: 从plots文件中读取目标站点信息 从station文件读取气象站点信息 自动匹配距离目标站点最近的气象站名称(Automatically match the closest meteorogical station of subject plot.)
- 2019-04-18 10:59:48下载
- 积分:1
-
dllexp-x64
DLL Export Viewer v1.66
- 2020-06-23 02:20:02下载
- 积分:1
-
Installing Pip
说明: Installing the pip in the python on windows platform
- 2020-06-24 23:00:01下载
- 积分:1
-
鼎科2033V电视板烧录软件
用于对鼎科2033V主板进行刷写固件,软件平台支持win7系统(it is used to flash Dingke video driver board.)
- 2020-06-17 16:40:02下载
- 积分:1
-
SCM
SCM信道模型MATLAB程序及大规模MIMO容量,信道特性相关仿真(SCM channel model and large-scale MIMO correlation simulation)
- 2018-07-23 20:02:45下载
- 积分:1
-
Delphi插件程序示例
Delphi插件程序示例-Delphi plug-in sample
- 2022-10-14 16:50:03下载
- 积分:1
-
课时12、课程资料
基于Openlayers实战地理信息系统的视频,小编在此共享(Video based on Openlayers Actual Geographic Information System is shared here by Editor)
- 2020-06-23 13:00:06下载
- 积分:1
-
相移光纤光栅
利用传输矩阵法对相移光纤光栅的反射及透射谱进行了仿真,由于光栅的相移具有一般性,因此在本文中将光栅分为两部分,第一部分为未引进相移的均匀布拉格光栅,第二部分为引入了相移的均匀布拉格光栅(The transmission matrix method is used to simulate the reflection and transmission spectrum of phase shifting fiber Bragg grating. Because the phase shift of the grating is general, the grating is divided into two parts in this paper. The first part is the uniform Prague grating without the introduction of phase shift, and the second part is a homogeneous Prague grating with phase shift.)
- 2018-07-07 21:17:18下载
- 积分:1