first vba
来源:互联网 发布:unity3d 鼠标中键平移 编辑:程序博客网 时间:2024/06/05 10:32
Sub moveCode()
'获取行
Dim iRows As Long
iRows = Sheets(1).UsedRange.Rows.Count
'循环处理 第一行不为空的数据全部放到D列来
For i = 1 To iRows
If Sheets(1).Cells(i, 1) <> "" Then
Sheets(1).Cells(i, 4).Value = Sheets(1).Cells(i, 1).Value
Sheets(1).Cells(i, 1).Value = Null
End If
Next
End Sub
'获取行
Dim iRows As Long
iRows = Sheets(1).UsedRange.Rows.Count
'循环处理 第一行不为空的数据全部放到D列来
For i = 1 To iRows
If Sheets(1).Cells(i, 1) <> "" Then
Sheets(1).Cells(i, 4).Value = Sheets(1).Cells(i, 1).Value
Sheets(1).Cells(i, 1).Value = Null
End If
Next
End Sub
0 0
- first vba
- VBA Tips:Your first VBA program
- First VBA Application, write for girl friend..
- vba
- vba
- vba
- vba
- VBA
- vba
- VBA
- VBA
- VBA
- VBA
- VBA
- vba
- vba
- VBA
- VBA
- my eclipse8.6发送邮件错误解决
- 一张图片表述数字证书的签名与验证原理
- Unity上使用Linq To XML——简单易维护的代码
- Qt 4.5.3 +tslib1.4移植
- XShell和Xftp
- first vba
- NSNotificationCenter 通知中心
- Poj1363
- OpenStack Swift 2.0发布,增加存储策略
- 创建Unity3D可以使用的dll类库
- Jquery表单插件ajaxForm用法详解
- ruby 生成随机数 和 随机字符串
- 亚马逊Redshift免费试用两个月
- 浏览器插件之ActiveX开发(一)