VBA 对比两行数据

Sub DB_Row()
    Dim i, j As Integer
    Dim row1, row2 As Integer
    row1 = 3    ‘ 对比第 3 行
    row2 = 4    ‘   和第 4 行

    For i = 1 To 256
        For j = 1 To 256
            If Cells(row1, i).Value = Cells(row2, j).Value Then
                If Cells(row2, j).Interior.ColorIndex <> 36 Then
                    Cells(row1, i).Interior.ColorIndex = 35
                    Cells(row2, j).Interior.ColorIndex = 36
                    Exit For
                End If
            End If
        Next j
    Next i
    For i = 1 To 256
        If Cells(row1, i).Interior.ColorIndex <> 35 Then
            Cells(row1, i).Interior.ColorIndex = 46
        End If
        If Cells(row2, i).Interior.ColorIndex <> 36 Then
            Cells(row2, i).Interior.ColorIndex = 46
        End If
    Next i
End Sub

时间： 2024-11-09 04:37:30

VBA 对比两行数据的相关文章

卫星轨道和两行数据TLE

最近由于Sino-2和北斗的关系,很多网友贴了表示卫星运行轨道的TLE数据.这里想对卫星轨道参数和TLE的格式做一个简单介绍.虽然实际上没有人直接读TLE数据,而都是借助软件来获得卫星轨道和位置信息,但是希望这些介绍可以对于理解卫星轨道的概念有所帮助.由于匆匆写成,可能有一些错误,如果看到还请指出. 前面关于轨道一部分写得较早,后来发现和杂志上关于我国反卫的一篇文章里的相应部分类似.估计都参考类似的资料,这个东西本身也是成熟的理论了.首先来看一下卫星轨道.太空中的卫星在地球引力等各种力的作用下做

excel比较每两行数据是否一样

excel比较每两行数据是否一样 Sub 宏1() For x = 2 To ActiveSheet.UsedRange.Rows.Count Step 2 For y = 2 To ActiveSheet.UsedRange.Columns.Count If Cells(x, y) <> Cells(x + 1, y) Then Range(Cells(x, y), Cells(x + 1, y)).Interior.ColorIndex = 6 End If Next Next End S

pandas-同时处理两行数据

pandas-同时处理两行数据假设数据集data如下所示: 如果我们想要将user_id 和 item_id两列进行对应元素相加的操作,该怎么办呢? 显然我们先定义一个加法函数,然后使用apply函数: 给个例子: 1 def sum(x,y): 2 return x+y 3 4 def sum_cv(data): 5 data['user_item']=data.apply(lambda row:sum(row['user_id'], 6 row['item_id']),axis = 1)

Excel VBA简单使用——数据缺失处理

VBA(Visual Basic for Applications)是VB的一种宏语言.用来扩展应用程式的功能.特别是Microsoft Office软件. 转载请注明原文地址:http://blog.csdn.net/ts_dchs/article/details/50318345 1 使用原因在处理传感器数据文件的时候.有些节点有丢包严重的现象.这样就会产生时间的累计误差. 所以须要依据包序号将之后的传感器数据填在合适的位置,也就是为丢包流出空行. 这样手动对照的方式非常不方便,所以想到用

使用VBA把EXCEL数据导入数据库

Dim table_Name$ Sub JugeData() Dim i%, Cnum%, dt$, arry1 () As String, arry2 () As String, arry3 () As String, cnn As Object, rst As Object cdt = Format(Date, "MMDD") table_Name = InputBox("请输入数据库表名", "数据库表名", "ygl_temp&

第一种vba自动筛选数据自动生成折线图的脚本（自动化）

Sub 数据整理() Dim iAreaCount As Integer Dim i As Integer Dim sTemp, sTemp2 As String Dim iTemp As Long Dim bFind As Boolean Dim ValueName() As String Dim ValueValue() As Double Dim ValueDate() As Date Dim iHour, iMinute, iSecond As Integer Dim iIndex As

各大语言性能对比PK数据

这里我用的python版本是Python 3.6.2(64位),php版本是PHP 7.0.12(64位),node版本是v6.11.0(64位),Go 1.8.3(64位),C# 基于.Net 4.0,lua 5.1.4 对比 python import time calNum = 100000000 def test(): sum = 0 for x in range(1, calNum + 1): sum += x return sum start = time.time() test()

在excel表中增加杂项报支费用、工程备件领料费用两行数据，要求按月份分别展示

SQL语句为: select substr(a.paydate,1,6) as paydate,sum(a.materialamt) as amt from (select * from db.tbcimt3 where APPID='INJJ47' AND CIMP1NO='18SJ6203' and PAYKIND='F' ) a group by substr(a.paydate,1,6) order by substr(a.paydate,1,6) 这条SQL查询出来的数据用map数组接

利用Excel VBA实现批量数据分组转置

问题:如上图所示,按lon,lat分组,再进行转置. Sub admin() Dim conn, xRs, xFd Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.Oledb.4.0;" & _ "Extended Properties= 'Excel 8.0;hdr=yes;IMEX=1' ;" & _ "Dat