「懒人IT学院」EXCEL和VBA技巧150例

点上面蓝色字体↑“懒人简笔画”关注我， 就可以实现简笔画秒会， [懒人大学]知识秒会的梦想了哦

vba参考手册

https://msdn.microsoft.com/zh-cn/vba/vba-excel

wps专业版vba模块

https://pan.baidu.com/s/1bnvoigJ

---------------------------------

拖动整行

---------------------------------

1.选择行:点击行首数字编号

2.鼠标在行内移动直到出现上下左右移动图标

3.ctrl 鼠标拖动

---------------------------------

第1个vba程序

---------------------------------

1.开发工具-命令按钮

2.双击按钮

Private Sub CommandButton1_Click

Application.ActiveSheet.Range("A1").Value = "Hello World"

MsgBox "Hello World"

End Sub

3.开发工具-退出设计

4.点击按钮运行

---------------------------------

获取表格行数

---------------------------------

Application.ActiveSheet.UsedRange.Rows.Count

ActiveSheet.UsedRange.Rows.Count

UsedRange.Rows.Count

---------------------------------

获取表格列数

---------------------------------

Application.ActiveSheet.UsedRange.Columns.Count

ActiveSheet.UsedRange.Columns.Count

UsedRange.Columns.Count

---------------------------------

遍历表格第1列数据

---------------------------------

For i = 1 To ActiveSheet.UsedRange.Rows.Count

MsgBox ActiveSheet.UsedRange.Cells(i, 1).Value

Next

---------------------------------

遍历表格并把每一行数据保存成文件

---------------------------------

Dim f As Object, FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")

For i = 1 To ActiveSheet.UsedRange.Rows.Count

fileName = ActiveSheet.UsedRange.Cells(i, 1).Value

Set f = FSO.CreateTextFile(ThisWorkbook.Path "\" CStr(fileName) ".txt", True)

f.Write (ActiveSheet.UsedRange.Cells(i, 2).Value)

f.Close

Set f = Nothing

Next

Set FSO = Nothing

懒人大学vip QQ群433569528