循序渐进VBA EXCEL数据操作小实例

1 向指定单元格区域内写入数据

Sub example1()
    Dim arr(1 To 3)
    arr(1) = Array("A", "B", "C", "D")
    arr(2) = Array("E", "F", "G", "H")
    arr(3) = Array("I", "J", "K", "L")
    For i = 1 To 3
        Range("A" & i & ":D" & i).Value = arr(i)
    Next

End Sub

2 复制指定单元格内的数据到另一个区域

Sub example2()
    Dim arr1
    arr1 = Range("A1:D1").Value
    Range("G3:J3").Value = arr1
End Sub

3 数据操作综合实例

Sub example3()
    Dim i As Integer
    Dim Tit
    Tit = Array("正序列", "倒序")
    Sheet1.Range("O1:P1").Value = Tit

    For j = 1 To 24
        Sheet1.Range("O" & j).Value = j

    Next

    Row = Sheet1.Range("o65536").End(xlUp).Row ‘读取数据行行号
    r = r + Row

    For k = 1 To r
        Sheet1.Range("P" & k).Value = r
        r = r - 1
    Next

    For i = 1 To Row
        arr2 = Sheet1.Range("O" & i & ":P" & i).Value ‘读取表一指定区域的单元格的值到数组
        Sheets("Sheet1").Range("R" & i & ":S" & i).Value = arr2 ‘将数组的元素写入到表

    Next

End Sub

4 Find 及 Findnext 全文查找综合实例

Sub example4()
    Dim s As String
    Dim c
    On Error Resume Next
    ‘Dim rn
    s = InputBox("输入查找关键字")
    i = 0

    Set c = Sheets("sheet1").Range("a1:d65536").Find(s)
    If c Is Nothing Then
       i = 0
    Else
       firstAddress = c.Address
       r = Sheet1.Range("a65536").End(xlUp).Row
       Do
        Set c = Sheet1.Range("a1:d" & r).FindNext(c)
        c.Interior.Color = RGB(232, 254, 250)
        i = i + 1
       Loop While Not c Is Nothing And c.Address <> firstAddress

    End If

    MsgBox "共有" & i & "条满足条件的记录."
End Sub

5 添加数据及数据套打综合实例

Sub example5()
    rw = Sheet1.Range("a65536").End(xlUp).Row
    For i = 1 To rw
      arr = Sheet1.Range("a" & i & ":d" & i)
      With Sheet2
        .Range("B2") = arr(1, 1)
        .Range("D2") = arr(1, 2)
        .Range("B3") = arr(1, 3)
        .Range("D3") = arr(1, 4)
      End With
      Call printForm ‘调用打印子程序
    Next
    Call CleanUp ‘调用清除指定区域数据子程序
End Sub

Sub CleanUp() ‘清除指定区域数据
    With Sheet2
        .Range("B2").ClearContents
        .Range("D2").ClearContents
        .Range("B3").ClearContents
        .Range("D3").ClearContents
    End With
End Sub

Sub printForm() ‘打印
    Dim ws As Worksheet
    For Each ws In Worksheets
      If (ws.Visible = xlSheetVisible) And (ws.Name = "Sheet2") Then
      With ws.PageSetup
          .Zoom = False ‘关闭打印缩放

          .FitToPagesWide = 1 ‘设置打印宽度
          .FitToPagesTall = 1 ‘设置打印高度
      End With
     ‘ws.PrintOut
      ws.PrintPreview
      End If
    Next

End Sub

Sub example6() ‘添加信息
    Dim xm$, nl$, zy$, zn$ ‘声明数据类型为字符串
    xm = Sheet2.Range("b2").Value
    nl = Sheet2.Range("d2").Value
    zy = Sheet2.Range("b3").Value
    zn = Sheet2.Range("d3").Value

    rw = Sheet3.Range("a65536").End(xlUp).Row
    If rw < 1 Then rw = 1: End
    i = rw + 1

    With Sheet3
        .Cells(i, 1) = xm
        .Cells(i, 2) = nl
        .Cells(i, 3) = zy
        .Cells(i, 4) = zn
    End With

    i = i + 1
    Call CleanUp
End Sub

原文地址:https://www.cnblogs.com/luoye00/p/10224382.html

时间: 2024-10-28 21:35:36

循序渐进VBA EXCEL数据操作小实例的相关文章

EXCEL数据导入数据库实例(NPOI)

Default.aspx 页面代码: 引用了:    <script src="../../js/jquery.easyui.min.js" type="text/javascript"></script> <form id="fileForm" runat="server" enctype="multipart/form-data" method="post&quo

MySQL 多会话之间更新数据的小实例

1:创建一个实验表 mysql> use test; mysql> CREATE TABLE t -> (id int(11) NOT NULL DEFAULT 0, -> num int(11) DEFAULT NULL, -> PRIMARY KEY(id)) -> ENGINE=INNODB DEFAULT CHARSET=gbk; Query OK, 0 rows affected (0.02 sec) mysql> INSERT INTO t VALUE

Unity 白猫操作小实例

最近师兄找我说白猫的操作如何做,  0.0 结果白猫没有android的客户端玩不了,看了下视频介绍就简单做了下 效果图:   核心代码: using UnityEngine; using System.Collections; using System.Collections.Generic; using System; public class Test : MonoBehaviour { private Test() { } private Vector3 startMouseDown;

python读写操作excel数据小应用

'''今天教务老师给我发来了一堆excel表 需要我处理一些数据都是一些基础的数据,这是今年来同济参加夏令营的申请材料在我按部就班的处理了几个之后,觉得这样处理实在是效率太低下了,于是我就写了下面这个程序,用python代码来批量化处理excel数据 首先 ,本科学校级别不同,985 211 会有不同的加分,所有我们要筛选匹配出所有人的本科学校,进行匹配 '''###首先建立985学校名单列表school_985 = ['清华大学','北京大学','厦门大学','天津大学', '中国科学技术大学

ThinkPHP使用PHPExcel实现Excel数据导入导出完整实例

这篇文章主要介绍了ThinkPHP使用PHPExcel实现Excel数据导入导出,非常实用的功能,需要的朋友可以参考下 本文所述实例是使用在Thinkphp的开发框架上,要是使用在其他框架也是同样的方法,很多人可能不能正确的实现Excel的导入导出,问题基本上都是phpExcel的核心类引用路径出错造成的,如果有问题大家务必要对路劲是否引用正确进行测试. 具体操作步骤如下: (一)导入Excel 第一,在前台html页面进行上传文件:如: <form method="post"

java 使用xom对象数据序列化为xml、反序列化、Preferences相关操作小案例

package org.rui.io.xml; import java.io.BufferedOutputStream; import java.io.FileOutputStream; import java.io.OutputStream; import java.io.UnsupportedEncodingException; import java.util.Arrays; import java.util.List; import nu.xom.Document; import nu.

数据从Excel数据导入到数据库的excel操作控件Spire.XLS for .NET

Spire.XLS for .NET控件是e-iceblue公司开发的一款支持对所有Excel格式类型文件进行操作的.NET 控件.它适用于任何类型的应用程序比如ASP.NET Web应用程序或者Windows桌面应用程序.Spire.XLS for .NET允许软件开发人员创建和管理Excel,而不需要安装Microsoft Excel或者Microsoft Office Excel.Spire.XLS for .NET和微软公司无隶属关系,也没有授权,赞助关系.相比Microsoft,Spi

winform 异步读取数据 小实例

这几天对突然对委托事件,异步编程产生了兴趣,大量阅读前辈们的代码后自己总结了一下. 主要是实现 DataTable的导入导出,当然可以模拟从数据库读取大量数据,这可能需要一定的时间,然后 再把数据导入到xml excel等.做了个小实例模拟了一下.特此帖出来以便日后查阅 先上效果图 然后贴上代码 1 using System; 2 using System.Collections.Generic; 3 using System.ComponentModel; 4 using System.Dat

C# 操作Excel数据透视表

一.概述 数据透视表(Pivot Table)是一种交互式的表,可以进行某些计算,如求和与计数等,可动态地改变透视表版面布置,也可以重新安排行号.列标和页字段.当改变版面布置时,数据透视表也会按照新的布置来进行更新,可以说是一个功能强大的数据分析工具.因此,本篇文章将介绍在C# 中关于Excel数据透视表的操作示例,示例内容主要包含以下要点: 1. 创建透视表 (1)创建数据缓存 (2)创建数据透视表 (3)添加行字段和列字段 (4)添加值字段 (5)设置样式 2.  设置行折叠.展开 3.