求一段代码把我所复制的那一列的工作表名称加到我所复制的那一列的第一行上
'是这意思？未作测试看上去差不多
Sub 提取()
Dim i As Integer, n As Integer
Dim she1 As Worksheet
For Each she1 In Worksheets
If she1.Name <> "Sheet1" Then
With she1
For i = 4 To 256
If .Cells(39, i) = 1 Or .Cells(39, i) = 2 Then
n = n + 1
.Cells(3, i).Resize(36, 1).Copy Sheets("sheet1").Cells(2, n + 3)
Sheets("sheet1").Cells(1, n + 3) = .Name
End If
Next i
End With
End If
Next she1
End Sub
Sub 提取()
Dim i As Integer, n As Integer
Dim she1 As Worksheet
For Each she1 In Worksheets
If she1.Name <> "Sheet1" Then
With she1
For i = 4 To 256
If .Cells(39, i) = 1 Or .Cells(39, i) = 2 Then
n = n + 1
.Cells(3, i).Resize(36, 1).Copy Sheets("sheet1").Cells(2, n + 3)
Sheets("sheet1").Cells(1, n + 3) = .Name
End If
Next i
End With
End If
Next she1
End Sub
佚名
2024-06-07 06:37:19
类似问题(10)
-
佚名2024-06-07 20:12:15
问在工作表“sheet1”进行复制，复制后的工作表副本自动取名为什么
答程序所自动设置的
-
佚名2024-06-07 11:58:37
问oracle 中怎么把一个表中的数据完全复制到另外一个表
答不同的数据库语法不同（SQL Server和Oracle为例），且复制包括目标表已存在和目标表不存在的情况，分别回答：SQL Server中，如果目标表存在： ...
-
佚名2024-06-07 16:18:17
问oracle 中怎么把一个表中的数据完全复制到另外一个表
答insert into 另外一个表表名 select * from 一个表表名;这样写试一试。
-
佚名2024-06-07 20:48:10
问oracle 中怎么把一个表中的数据完全复制到另外一个表
答如果table_a 和table_b 表结构完全一致insert into table_bselect * from table_a;如果不一致，则把* 改成需...
-
佚名2024-06-07 17:38:35
问作文片段 永康肉麦饼制作的全过程的一系列动作描写
答永康肉麦饼是一种馅饼，这可是永康的“特产”哦，外地人称之为“永康食果”。永康农家在丰收喜庆季节向有制作肉麦饼作为佐餐的传统。相传北宋兵部侍郎胡则就很喜欢吃肉麦饼...
-
佚名2024-06-07 08:00:00
问帮我列举一下复仇者联盟的所有成员
答雷神 托尔 钢铁侠 托尼·斯塔克 黑寡妇 娜塔莎·罗曼诺夫鹰眼 克林特·巴顿美国队长 斯蒂夫·罗杰斯 绿巨人 布鲁斯·班纳
-
佚名2024-06-07 08:00:00
问wps表格能不能把一个表格中以其中一列中的姓名把相同的姓名排列在一起，要一整行跟着变化的那种方法？
答一列姓名外加一列序号，然后将序号用Vlookup引用到表格中，按照序号排序。
-
佚名2024-06-07 08:00:00
问工作表中怎么将A列的单元格的格式复制到B列
答Excel 技巧 53例 （一） 1、如何在已有的单元格中批量加入一段固定字符？ 例如：在单位的人事资料，在excel中输入后，由于上级要求在原来的职称证书的号...
-
佚名2024-06-07 08:00:00
问球球大作战代码复制
答球求大作战名字颜色代码大全 代码更换方法使用技巧http://news.4399.com/gonglue/qqdzz/xinde/m/603398.html
-
佚名2024-06-07 08:00:00
问谁谓河广，一苇杭之”所要表达的是什么意思别复制它
答意思是谁说黄河宽又广？一片苇筏就能航。出自《国风·卫风·河广》，是中国古代第一部诗歌总集《诗经》中的一首诗，作者无名氏。这是一首意蕴丰富的思归诗。全诗二章，每章...
风水
起名
网名
- 1 霸气的四个字网名
- 2 英语网名励志
- 3 女生网名新款
- 4 男女共用的网名
- 5 网名上用句号什么意思
- 6 四字昵称古风
- 7 快手昵称污女
- 8 微信进群改不了本群昵称
- 9 宝宝可爱昵称食物
- 10 家装微信昵称大全
