共 23 篇文章 |
|
我们日常学习和工作中都会或多或少接触到数据,这些数据相对比较简单,不需要使用复杂的分析工具来处理,使用的最多的是Excel表格。利用Ctrl+J换行符,即可快速换行。这里我们需要借助名称定义来实现,首先点击公式——定义的名称——定义名称,在相应的对话框中输入内容,输入名称“计算”,在引用中输入公式=Evaluate()函数确定,之后在计算... 阅1 转自eln 公众公开 19-01-09 11:48 |
Sub 数组写入字典2()Dim d As New DictionaryOn Error Resume Next ''''错误继续执行 如果有重复会跳过arr = Range("a1:b" &Cells(Rows.Count, 2).End(xlUp).Row)For i = 1 To UBound(arr) j = arr(i, 1) m = arr(i, 2) d.Item(arr(i, 1)) = arr(i, 2) ''''修改解释 要修改的关... 阅615 转44 评0 公众公开 15-02-09 09:20 |
Sub VBA数组分类汇总() Dim arr1()arr = Range("a2:c10") ''''赋值区域For i = 1 To UBound(arr) ReDim Preserve arr1(1 To 2, 1 To n + 1) For j = 1 To UBound(arr1, 2) ''''''求这个数组2维的上界 If arr1(1, j) = arr(i, 1) Then ''''... 阅870 转35 评0 公众公开 15-01-26 15:30 |
阅247 转19 评0 公众公开 15-01-16 13:52 |
Sub 合并单元格实例()Dim Sint%, i%, rng As RangeApplication.DisplayAlerts = False '''' 提示Sint = Cells(Rows.Count, 1).End(xlUp).Row ''''最后一列For i = Sint To 2 Step -1 ''''从下往上合并Set rng = Range("a" &i) If rng = rng.Offset(-1) Then '&... 阅639 转17 评0 公众公开 15-01-16 13:39 |
Sub 删除批注()Dim rng As RangeFor Each rng In Selection If Not rng.Comment Is Nothing Then ''''有批注 rng.ClearComments End IfNext.Sub 批量批注添加()Dim rng As RangeFor Each rng In Selectionrng.ClearCommentsrng.AddCommentrng.Comment.Shape.Height = 50 ''设置批注高度rng.Comment.Shape.... 阅4531 转25 评0 公众公开 15-01-16 10:19 |
Sub union单元格连接() ''union必须为对象Dim rng As RangeDim rngs As RangeSet rng = [b2] ''先申明一个变量For Each rngs In [b2:b10] address = rngs.address Set rng = Union(rng, rngs) ''''合并起来赋值给rng Saddress = rng.addressNext. 阅724 转24 评0 公众公开 15-01-12 11:14 |
阅750 转34 评0 公众公开 15-01-09 15:36 |
Sub 入库保存()Dim rng As RangeDim str As StringDim Sint, Bint As IntegerDim c, Csheet3 As String.Dim rngs As RangeSet rngs = Sheet3.Find("*", , xlFormulas, , , xlPrevious) ''''查找最后个单元格str = rng.addressSint = rng.Row ''''最后单元格所在的行数If Sint = 4 ThenMsgBox "... 阅1639 转49 评0 公众公开 15-01-08 18:51 |
''''''单元格所在的行列 range 对象'' range.EntireRow 返回单元格或区域 所在的整行 或多行'' range.EntireColumn 返回单元格或区域 所在的整列,或多列Sub 列行Entire()Range("a1").EntireRow.SelectRange("a1").EntireColumn.SelectRange("a1:b4").EntireRow.Select... 阅957 转22 评0 公众公开 15-01-08 18:44 |