当前位置: 开发笔记 > 编程语言 > 正文

VBA中如何对单元格的数据进行组合和取消组合,求代码

作者：小文662502914775 | 来源：互联网 | 2023-05-19 16:09

在VBA中我们通过调数据库得到数据放在EXCEL中,应该如何通过代码对这些数据进行组合和取消组合..求代码,坐等高手

在VBA中我们通过调数据库得到数据放在EXCEL中,应该如何通过代码对这些数据进行组合和取消组合..
求代码,坐等高手...

9 个解决方案

#1

补充下:所谓的组合就是有个+,-号自动显示隐藏的功能..

#2

哦,通过录制宏知道了代码是Sheet1.Range("A1:F5").Group
Sheet1.Range("A1:F5").Ungroup
看来不知道功能怎么实现还是可以通过录制宏来看代码的...这是个不错的方法..
自己顶下..

#3

Sheet1.Range("A1:F5").Group
这个是行组合还是列组合呢？

组合分行列的，下面给一个连续行的任意分组层次的功能，供参考。



Public Sub GenerateOutline()

    Dim objRow As Range   

    For Each objRow In Application.ActiveSheet.UsedRange.Rows

        objRow.OutlineLevel = 组合层数 + 1

    Next

End Sub



Public Sub ResetOutlines()

    Application.ActiveSheet.UsedRange.Rows.OutlineLevel = 1

End Sub

#4

我个忘记加了,Sheet1.Range("A1:F5").Group表示行,列都组合
要行组合就是 Sheet1.Range("A1:F5").Rows.Group
同理列组合就是 Sheet1.Range("A1:F5").Columns.Group
不管怎样要感谢3楼...

#5

还想问下
dim i as interger
那我应该如何取得Range("A1:Fi")呢
就是("A1:Fi")应该怎样写
我定义了个字符串来加i,但不知道怎样来拼

#6

再问下,如何选中列所有有数据的单元格,其中有多少列是未知的...

#7

range("a1:f" & i)

sheet1.usedrange.select

#8

哦,感谢3.7楼...下午结贴给分.

#9

sheet的usedrange属性，是选择所有使用过的单元格的最大矩形区域，即使只是设置了格式，也算使用过。

推荐阅读

main
实时将来自多个工作表的数据组合到摘要工作表中 - Real time combine data from multiple worksheets into a summary worksheet

IhavedatainmultipleDataworksheetsthatwanttocombineintoSummaryworksheet.Whenuserupdat ... [详细]

蜡笔小新 2023-10-10 14:26:43
select
删除用户窗体列表框中选择的行或项目

我有一个用户表单，可以在其中输入一些信息，但我还想让用户可以通过从列表 ... [详细]

蜡笔小新 2023-09-25 19:06:12
select
如何在同一工作表上运行多个VBA代码

我当前正在运行以下代码：PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,Cancel ... [详细]

蜡笔小新 2023-09-17 23:08:33
select
在excel vba中测试空单元。 - Testing empty cells in excel vba

ImcreatingaformulainExcelVBAoftheform我在ExcelVBA中创建了一个公式。myformula(cell1,cell2,range) ... [详细]

蜡笔小新 2023-09-06 08:43:15
select
VBA中的CDate功能问题 - Problem with CDate function in VBA

ImusingCDatetoconvertaparticulardateformattedasstringtotheExcelDatetype.Iwroteas ... [详细]

蜡笔小新 2023-09-15 17:55:38
header
从另一个表更新表值 - Update table values from another Table

Ihaveaworkbookwithatablethatisroughly20000rowsinsizeand52columns.Attimes,Ineedt ... [详细]

蜡笔小新 2023-09-12 15:25:14
select
允许Access用户选择Excel工作表进行链接 - Allow Access user to select Excel worksheet for linking

SoIamusingVBAinAccesstocreatelinkedtablesbetweenExcelandAccess.Simpleenoughandass ... [详细]

蜡笔小新 2023-09-11 17:40:39
select
为什么用VBA for循环无法获得完整结果

为什么用VBA for循环无法获得完整结果 ... [详细]

蜡笔小新 2023-09-11 13:35:01
select
Excel VBA高效办公应用-第七章-VBA财务报表分析-Part3 （现金流量表分析）

书上的例子应该是错的，纠正如下：代码如下（补充了几个指标的定义）:PublicSub现金流量表()计算“经营活动现金流入合计”Cells(9,3)"sum(C ... [详细]

蜡笔小新 2023-09-11 13:15:23
select
VB.NET在线急等问题解决方法，如何统计数据库字段下的数据并显示在文本框里？

本文介绍了一个在线急等问题解决方法，即如何统计数据库中某个字段下的所有数据，并将结果显示在文本框里。作者提到了自己是一个菜鸟，希望能够得到帮助。作者使用的是ACCESS数据库，并且给出了一个例子，希望得到的结果是560。作者还提到自己已经尝试了使用"select sum(字段2) from 表名"的语句，得到的结果是650，但不知道如何得到560。希望能够得到解决方案。 ... [详细]

蜡笔小新 2023-12-13 15:15:30
range
VBA操作Excel之设置单元格属性

VBA操作Excel简介一、VBA读写Excel文件二、VBA设置单元格属性三、VBA弹出输入和输出窗口参考文档一、VBA读写Excel文件VBA简介及打开Excel文件方法见VB ... [详细]

蜡笔小新 2023-10-17 16:48:53
select
Ace引擎和Jet引擎读取Excel

http:www.cnblogs.compirloarchive200909091563368.html以前操作Excel的话，一般都会去用Microsoft.Jet.OLEDB.4. ... [详细]

蜡笔小新 2023-10-17 12:04:38
int
无法修改单元格的.Text属性 - Unable to modify the .Text property of a cell

Subex2()Sheets(sheet2).Range(a2).TextAnilEndSubIwanttocopythedataAnilinto ... [详细]

蜡笔小新 2023-10-10 11:25:04
range
将单元格中的文本与excel VBA中的“=text”进行比较 - Comparing text in cell with “=text” in another cell with excel VBA

IamtryingtocomparecellvaluesinaloopwithVBA.TheloopthatIwasusingwasthis我正在尝试将循环中 ... [详细]

蜡笔小新 2023-09-13 11:58:03
int
VBA是一种OOP语言，它支持多态性吗? - Is VBA an OOP language, and does it support polymorphism?

IamactuallyworkingonmyfirstVBAproject.(comefromC++)我正在做我的第一个VBA项目。(来自C++)Iwouldlik ... [详细]

蜡笔小新 2023-09-08 19:39:29

小文662502914775

这个家伙很懒，什么也没留下！

Tags | 热门标签

RankList | 热门文章