拆分表格

 1 Sub 发票回执单()
 2     Dim num1%, num2%, num3%, h%
 3     Dim arr1, arr2
 4     Dim rng As Range
 5     Dim d As Object
 6     Application.ScreenUpdating = False
 7     Application.DisplayAlerts = False
 8     Set d = CreateObject("scripting.dictionary")
 9     With Worksheets("发票登记表")
10         num1 = .Range("H1").Value
11         num2 = .Range("I1").Value
12         num3 = .Range("J1").Value
13         MsgBox (num3)
14         arr1 = .Range("B" & num1 & ":B" & num2)
15         arr2 = .Range("G" & num1 & ":G" & num2)
16         For i = 1 To UBound(arr1)
17             If arr2(i, 1) <> "作废" Then
18                 If Not d.Exists(arr1(i, 1)) Then
19                     Set d(arr1(i, 1)) = .Range("C" & num1 & ":F" & num1)
20                 Else
21                     Set d(arr1(i, 1)) = Union(d(arr1(i, 1)), .Range("C" & num1 + i - 1 & ":F" & num1 + i - 1))
22                 End If
23             End If
24         Next
25     End With
26     With Worksheets("回执单")
27         For Each k In d.keys
28             h = .Cells(.Rows.Count, 5).End(xlUp).Row
29             MsgBox ("h=" & h)
30             Set rng = .Range("A" & (h - 9) & ":F" & h)
31             ‘rng.Copy
32     End With
33 End Sub
时间: 2024-10-31 05:05:13

拆分表格的相关文章

word中迅速将表格一分为二 拆分表格快捷键ctrl+shift+enter 重复上一个命令快捷键f4

这里说的是将一个表格拆分为两个表格 选择要拆分的行,快捷键ctrl+shift+enter,就拆分为两个表格了,是不是很快! 在多个表格需要拆分的时候,做一次这样的操作,然后不停的移动.F4,就可以了! 如果不会这个技巧,就只能 1.用绘制表格的橡皮把表格的框线擦掉了. 2.“表格”——“拆分表格”命令. 3.选定表格行,上方工具栏有布局,进入工具栏,点击“拆分表格”按钮.--------------------- 作者:龙哥虎弟 来源:CSDN 原文:https://blog.csdn.net

wps拆分表格数据内容

上传系统数据必须限制在1000条数据以内,导致我原有上万条数据的表格,需要拆分为固定1000条数据为一个表格,然后逐个表格上传系统,经过excel数据拆分测试,现整理以下拆分方法方便大家处理数据 一.表格数据格式 二.操作步骤: 1.单击E2单元格,[Ctrl+Shift+↓]选中E2~E15,按[F2]进入单元格编辑状态,在E2单元格输入公式[=ROUNDUP(ROW(1:1)/2,0)](行号除以2的结果向上取整数,比如E52单元格是第3条数据,用行号3除以2得到1点几,向上取整就会得到2)

WORD中表格拆分的技巧

菜单法:选择要拆分的表格部分,在"表格"菜单下选择"拆分表格" 快捷键法,选择要拆分的表格部分,直接ctrl+shift+enter就可以快速拆分表格.

Word 2003从入门到精通第5讲(表格)

Word 2003从入门到精通第5讲(表格) 讲师 朱先忠 Part 0 概述 0.1 总体内容安排 0.2 表格学习四大难点 l      对齐问题 l      添加边框线 l      数据清单概念与排序 l      公式与计算 Part 1 创建表格 1.1 创建表格 1.1.1使用常用工具栏中的[插入表格]按钮 1.1.2使用[表格]菜单中的[插入]命令 1 在"自动调整"操作中: l   固定列宽:可在框中输入宽度值或使用微调按钮选择,若使用"自动"项

Flex打印

Flex 打印常使用PrintDataGrid,但会有一些问题,不支持表格单元格合并,有的可能需要打印一些flex组件和容器(VBox, HBox, Text, Image)等.重写flex的Grid表格,Grid类似HTML的table, 能很好支持单元格合并,单元格中加入组件和容器. 自定义PrintDataGrid: public class PrintDataGrid extends Grid     {        public static const pageHeight:int

表单设计器系列之一些细节操作

下午好像么有什么事情,接着写,这篇文章跟大家讲讲表单设计器里面一些细节的操作和值得注意的地方, firstBlood,表格的宽.高调整. 默认情况下,我们会给表格的每个td设置一个默认的宽度和高度,如图所示: 我们可以看到 A B C D每列的宽度和高度都是一样的,那么同城情况下 我们期望 输入的地方变宽点.同样,操作很简单,比如我们想要B和D列变宽点,只需拖动B和D右边的调整按钮 向右边拖动即可,操作细节如下: 鼠标hover按钮 ---> 按下鼠标左键 ---> 向右平移 --->

SQL Prompt

SQL Prompt介绍编辑 SQL Prompt[1] 是一款拥有SQL智能提示功能的SQL Server和VS插件.SQL Prompt能根据数据库的对象名称,语法和用户编写的代码片段自动进行检索,智能的为用户提供唯一合适的代码选择.自动脚本设置为用户提供了简单的代码易读性--这在开发者使用的是不大熟悉的脚本时尤其有用.SQL Prompt是立即可用的且能极大的提高生产率. 2功能特征编辑 顺利的编写SQL代码 根据部分代码比对进行代码补全 自定义代码片段 智能JOIN条件提示 即时访问模式

SQL Prompt7.2下载及破解教程

基本介绍 SQL Prompt能根据数据库的对象名称,语法和用户编写的代码片段自动进行检索,智能的为用户提供唯一合适的代码选择.自动脚本设置为用户提供了简单的代码易读性--这在开发者使用的是不大熟悉的脚本时尤其有用.SQL Prompt是立即可用的且能极大的提高生产率. 功能特性 顺利的编写SQL代码 根据部分代码比对进行代码补全 自定义代码片段 智能JOIN条件提示 即时访问模式信息 使得代码更具可读性 自定义代码重定格式 与团队成员共享格式样式 关键字大写 自动使得对象名称合格 代码重构 无

WPS客户端更新日志留着备用

WPS Office (10.1.0.7520)==========================================新增功能列表------------WPS文字1 拼写检查:新增“中文拼写检查”功能 WPS公共1 实时预览:支持字体和字号实时预览2 发送至手机:云服务选项卡下,新增“发送至手机”入口,方便PC和移动设备间互传文件 功能优化列表------------WPS文字1 隐藏页间空白:单击显示/隐藏页间空白,改成双击显示/隐藏页间空白,减少用户误操作的可能 WPS表格1