EXCEL VBA 参考数据问题

程序：<>

测试数据：<>

**执行后的数据：

如果原始数据分布在不同的区域，则只需将 e1：e3 处的 ** 修改为实际区域即可。 程序文本如下：

option explicit

子宏 1（）。

dim r as range, a, t, s, ifor each r in range("e1:e3").cellsa = split(r, "

s = for each t in split(a(0),for i = 1 to 3

if i < 3 or t < 6" thens = s & i & t &

end if

next i

next t

s = left(s, len(s) -1) &a(1)r = snext r

end sub

众所周知，它是否会出现故障或比 10 更糟

下面是一个 Python 示例，可用于激发您描述的操作

假设您有一个二维数据列表，其中包含需要处理的数据。

列表中的每个元素都是 7 个元素的列表。

第一列对应于六列 b、e、h、k、n 和 q。

result =

for row in data:

values = row[1]， row[4]， row[7]， row[10]， row[13]， row[16]] 提取需要比较的 6 个单元格的数据。

if len（set（values）） 6：如果相同的数据不可用，则保留此行。

elif len（set（values）） 5：如果有 1 个不同的数据，请用袜子清除它并保留相同的数据。

for i in range(6):

如果 1：row[1 + 3 * i] =values[i]break 仅替换第一个找到的重复值。

处理完所有行后，结果将只包含满足 Douzen 条件的行。

您可以尝试使用VBA执行此操作，如下所示：

sub cleandata()

dim lastrow as long

lastrow = , 1).end(xlup).row '获取最后一行的行号。

dim i as long

for i = lastrow to 2 step -1 '从最后一行开始，一直到第二行。

dim values(5) as variant '存储要比较的六个单元格的数据。

values(0) =cells(i, "b").value

values(1) =cells(i, "e").value

values(2) =cells(i, "h").value

values(3) =cells(i, "k").value

values(4) =cells(i, "n").value

values(5) =cells(i, "q").value

dim j as long

for j = 0 to 4 '比较六个单元格中的数据，以确定是否存在重复项。

如果不是 isempty（values（j）） 和 values（j）。"then

dim k as long

for k = j + 1 to 5

if not isempty(values(k)) and values(k) if values(j) =values(k) then

if values(5 - j - k) cells(i, 5 - j - k).clearcontents '如果存在重复项，但另一个单元格中的数据不同，则清除该单元格中的数据。

exit for '当找到重复项时，它将退出内部循环。

end if

end if

end if

next k

end if

next j

如果六个单元格中的灵照数据不同，则删除该行。

if isempty(values(0)) and isempty(values(1)) and isempty(values(2)) and isempty(values(3)) and isempty(values(4)) and isempty(values(5)) then

rows(i).delete

end if

next i

end sub

有已删除的行，这些行以相反的顺序处理。 有一种判断是数据是一样的，后悔是用字典处理的。 具体来说，必须与毕老的文件沟通。

除了删除前的沟通，对吧？

程序：<>

程序运行结果：

**文本：选项显式

子宏 1（）。

dim arrc, arraq, i&, j&, k&, n&n = cells(, "aq").end(xlup).row - 8 'AQ 列中从 9 行开始的数据行数。

arraq = range("aq9").resize(n, 4)redim arrc(1 to n, 1 to 3)for i = 1 to n

for j = 1 to 4

k = arraq(i, j) mod 3 + 1 '余数 +1arrc（i， k） = arrc（i， k） +1'数组 c 对应于 +1 列

next j

next i

range("c9").resize(n, 4) =arrcend sub

沟通后，您可以随心所欲地方便。

end(xx).row，主要用于查找最后一个非空单元格。

end 后面的括号中有四个参数表示方向：xlup、xldown、xltoleft 和 xltoright

因此，它不能用于实现非空行号。

end(xldown).行效果如下，你会看到它的结果是 6，从 1 向下找到 xldown，并返回遇到的第一个空单元格。

XLdown 效果如下，它是 A 列的最后一行开始向上查找，返回第一个非空单元格，即使 A6 单元格为空，仍然返回 11：

如果要统计非空数的数量，可以调用内置函数：

a= ("a1:a5000"))

我在我的项目里做了，价格是50元。

在状态下，右键单击按钮并选择“属性”选项。

然后手动将其名称从 CommandButton1 更改为 CommandButton100。 进入后，您可以：

更改之前和之后。

我不明白你的意思。 看看是不是我理解的意思 1、开发工具，插入activex按钮。

2. 将我的名字修改为commandbutton1003，点击右侧单机按钮查看**，并添加**。

可能原因：

1.对宏安全性和警告进行故障排除。

打开你的**界面，看到下图中的位置。

在这里，每个工作表都有两个名称，这两个名称都可以表示工作表，但方式不同。

这就是 sheet1 在上一篇文章中的表示方式，括号中的名称（如 sheet3）应如下所示：sheets（"sheet3").cells

也就是说，对于下图，general 和 sheets（"sheet3").两种表示形式的单元格表示相同的工作表。

请看下图：

此处的名称 Sheet5 由 VB 中的属性修改。

和床单（"sheet5").名称单元格由工作簿底部的标签修改。

我没有照片。 1. Sheet5 是工作表从左到右的第 5 张工作表，如果你只有三张，你肯定会犯错误。 你试一试;

2、worksheets(""有5张桌子吗？ 可能不是。 您可以编写为工作表（"").sheets("工作表名称").cells(3,3)

3.还是一样，确保有5张纸，可以这样写，也可以写成sheets（5）。cells（， same.

首先，文件必须打开。

workbooks("").sheets("sheet1").cells(

或。 workbooks("").

显然问题出在工作表上（""），应为工作簿（"")