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

EXCEL vBA 简单的代码问题

这个简单,代码如下: 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...

打开文件,读取内容,关闭文件,显示内容。 With Workbooks.Open("D:\123.xlsx") s = .Sheets("sheet1").Range("A1").Text .Close FalseEnd WithMsgBox s

自己录制个宏,就可以了。 Sub Macro2() Range("A1:B2").Select Selection.Copy Range("C3:D4").Select ActiveSheet.Paste End 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

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

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...

你这个代码写得那个……,唉,没法改,你详细说说要求,重新帮你写

网友“姓王的wy”其实已经回答了你的问题,这其实就是单元格的item属性(是一种缩略的写法) 你可以用以下语句验证一下 range("a1").item(1,2)=100 看看b1单元格是否填充值100 所以,表示单元格偏移方式就有两种: 常用的offset属性,比较类似于工...

1,设置好 打印区域 2.在按钮中加入代码 Application.Dialogs(xlDialogPrint).Show

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