VBA中的FIND操作
来源:互联网 发布:手机知乎使用攻略 编辑:程序博客网 时间:2024/05/17 02:40
Dim srow As Integer
Dim erow As Integer
Call init
srow = ssheet.Range("A1:A28").Find(What:="counter1").Row
For snum = srow To 28
If (ssheet.Cells(snum, 1) <> "counter1") Then
erow = snum - 1
Exit For
End If
Next
Debug.Print CStr(srow) & "-------" & CStr(erow)
Dim erow As Integer
Call init
srow = ssheet.Range("A1:A28").Find(What:="counter1").Row
For snum = srow To 28
If (ssheet.Cells(snum, 1) <> "counter1") Then
erow = snum - 1
Exit For
End If
Next
Debug.Print CStr(srow) & "-------" & CStr(erow)
Call destory
-----------------------------------------
仿照python(列表,字典)中写个数组。
- VBA中的FIND操作
- excel VBA中的数据库基本操作
- VBA (continued) Find Function
- 使用Excel中的VBA连接并操作Oracle
- VBA的Selection.Find函数
- vba文件操作
- vba操作数据库
- Excel-VBA文件操作
- VBA中操作OPC
- excel VBA 简单操作
- 使用VBA操作word
- vba 操作VSS
- VBA文件操作
- VBA 操作 文件夹
- VBA操作数据库
- VBA 操作数据库
- EXCEL 操作汇总&&VBA
- VBA直接操作数据库
- MySQL 安装 (不需root权限的安装方法)
- Cauchy-Riemann Relations
- python列出ftp文件列表
- C#中的委托和事件(续)
- 字符编码、内码,顺带介绍汉字编码
- VBA中的FIND操作
- FlyTreeView客户端对象模型参考
- Android核心分析一-------Android GWES之消息系统
- SSH2(Struts2、Spring3与Hibernate3)的整合
- AES加密学习笔记(一)
- java归并排序
- 随机抽样算法
- C++ 输入输出格式
- 卸载evolution后ubuntu10.04无法登陆到桌面环境的问题