最近整理的代码，适合初学VBA的朋友哦

vipan

Sub 复制()
Sheet1.Range("A1:I40").Value = ThisWorkbook.Path \ [1.xls].Sheet1.Range("A1:I40").Value
End Sub
这个程序咋运行不了呢？

lnzxc321

非常实用，老师辛苦了。

深秋的黎明

■激活对话框，用于返回到首个需要输入的textbox
TextBox1.SetFocus

■冻结对话框，让对话框不能改动
TextBox1.Enabled = False

■给下拉框添加项目
Private Sub UserForm_Activate()
With ComboBox1
    .AddItem "商业险"
    .AddItem "交强险"
  End With
End Sub

■隔行复制
Sub run()
A = Range("A1000").End(3).Row
For i = 1 To A
Cells(2 + (i - 1) * 2, 4) = Cells(i + 1, 1)
Cells(3 + (i - 1) * 2, 4) = Cells(i + 1, 2)
Next i
End Sub

■在A列输入后，自动在C列添加日期
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Offset(0, 2) = Date
End Sub

■打开与单元格内容相同名称的工作表
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Then Exit Sub  '如果是空白单元格 则不执行
Sheets(Target.Value).Activate '激活工作表
End Sub

■        返回G列最后一行的值
=LOOKUP(9E+307，G:G)

■        当前（活动）单元格的内容等于textbox1的值
Private Sub CommandButton1_Click()
Selection.Value = TextBox1.Text
End Sub

penn44

非常感谢，辛苦了！！！

qsgct545

超级感谢！

andy870127

谢谢楼主分享

抽屉123

好好学习！

十二月的小雨

感谢大神分享 收藏了

lyb200

高手啊，学习记录一下。。。