tnfh.net
当前位置:首页 >> EXCEL vBA 简单的代码问题 >>

EXCEL vBA 简单的代码问题

删掉重新建一个按钮 “指定宏” =================我的是EXCEL2003 改了一下代码正常运行============ Sub 我的股票()'' ...

Sub chiefzjh() Dim r%, sht r = 3 For Each sht In Worksheets If sht.Name "Sheet1" Then sht.Range("a3:f3").Copy Worksheets("sheet1").Cells(r, 1) r = r + 1 End If Next End Sub

这个简单,代码如下: Option ExplicitSub x() Dim i, r, n, s, ss, c For Each r In Selection.Cells s = r.Value ss = "" n = Len(s) For i = 1 To n c = Mid(s, i, 1) If Right(ss, 1) " " Or c " " Then ss = ss & c Next i r.Value = ss Ne...

问题1 指定内容copy到哪里了? 这句copy的内容的目标位置,位置自然是以 .Cells(.Range("A65536").End(xlUp).Row, 1)这个单元格为起始位置. Range("A65536").End(xlUp).Row 这句的意思是获得A列最后一个有数据单元格的行号, 至于你说的语句前面的"...

Sub iMonth() Dim iMonth As Long, i As Long iMonth = Month(Range("C1")) - Month(Range("B1")) + 1 For i = 1 To iMonth Range("F" & i) = Format(Range("B1") + 30 * i - 30, "yyyy年m月") NextEnd Sub

代码大致功能: 1、去掉C列中的逗号 2、清空L至R列的数据(从第二行开始到R列的最后有数据的行) 3、将B列的数据(第二行开始)利用字典去重放入L列(第二行开始) 4、设置M2公式=VLOOKUP(L2,B:C,2,0),并向下填充 5、设置N2公式=VALUE(RIGHT(VL...

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.Pattern = xlNone Rows(Target.Row).Interior.Color = 49407 Columns(Target.Column).Interior.Color = 49407End Sub

If Cnn.State Then Cnn.Close 在前面加上这句话,如果其他地方也有上面出错那句话,也要加上,

Dim str$ str = ComboBox1.Text'combobox1赋值给变量str Dim dic, arr, i As Integer Set dic = CreateObject("scripting.dictionary")‘声明一个字典变量 arr = Sheet7.UsedRange'把sheet7表的数据赋值给数组arr On Error Resume Next’遇到错误...

上面清除数据 是 清除的 Range("A7:W60000,B6,D6,F6,B2:D2,F2:H2"), 这里面不包含 U6这个单元格, 循环条件:Do Until Cells(i, "U") = Empty 第一次 i=6,单元格 U6 我们不知道是什么内容,如果不为空,则继续运行——第二次当i=7时,数据是空的...

网站首页 | 网站地图
All rights reserved Powered by www.tnfh.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com