根据sheet1指定行数往sheet2中写数据
来源:互联网 发布:淘宝oem化妆品 编辑:程序博客网 时间:2024/06/16 12:16
Dim i As Integer
Sub addNewInfo(ByVal stext As String, ByVal icount As String)
Worksheets("Sheet2").Activate
Dim rowcount As Integer
Dim j, m As Integer
j = Val(icount)
rowcount = ActiveSheet.UsedRange.Rows.Count
For m = 0 To j
ActiveSheet.Cells(rowcount, 1).Value = stext
rowcount = rowcount + 1
Next
End Sub
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Activate
Dim rowcount As Integer
Dim stext, icount As String
icount = 0
rowcount = ActiveSheet.UsedRange.Rows.Count
For i = 2 To rowcount
Worksheets("Sheet1").Activate
stext = ActiveSheet.Cells(i, 1).Value
icount = ActiveSheet.Cells(i, 2).Value
Call addNewInfo(stext, icount)
Next
End Sub
- 根据sheet1指定行数往sheet2中写数据
- 第一次EXCEL编程,双击SHEET2 中的单元格 数据自动填充到 SHEET1 中去
- vba excel电话号码的导入(sheet1 to sheet2)
- 把多个excel文件的sheet1数据合并到一个excel文件的sheet1中
- 根据指定行数拆分内表
- Sqlite3查询指定行数数据
- Sqlite3查询指定行数数据
- Sqlite3查询指定行数数据
- 函数指针 往指定内存中写数据
- 函数指针 往指定内存中写数据
- java往指定的excel中写数据
- php 下载excel文件,单独设置工作表(sheet1,sheet2,sheet3....)
- 检讨:为何远超预期的时间在"excel应用:选中sheet1中a列与sheet2中b列重复值,并删除对应行”,大概用了8小时
- SSRS 指定数据行数进行换页
- Update指定更新数据影响行数
- Oracle根据指定行数查询(start,end)
- Shell命令--怎么统计文本中第一列数据满足指定条件的行数
- c#泛型结合Linq实现从数据源中截取指定位置,行数的数据
- setlocal enabledelayedexpansion 理解
- 为UITableView加入索引
- 感同身受(身处相似的境遇,探索新的突破点)
- xenomai_驱动开发问题解决
- C#Base64 编码[转]
- 根据sheet1指定行数往sheet2中写数据
- 位置问题
- kettle链接mysql
- 利用构造函数在两个UIViewController之间传值
- SHOPNC V2.2正式版,SHOPNC V2.4企业版完全去除破解版权(顶部title版权- Powered by shopnc.net和底部版权)
- C++继承:公有、私有、保护
- Java程序发送邮件的两种方法
- Android.mk文件
- 从HTTP服务端获取流文件