请求excel vba 组合不重复的代码。谢谢。

已知10个数，10对组合，其中一定有6对组合不包含我要求的2个数字。这如何实现呢？
红色代表未知数。黄色是不包含的数

举报该问题

推荐答案 2015-08-03

1、选中“组合区域”的数 ----》“条件格式” ------》 “突出显示” -----》“等于”---》选择 A2

2、重复一次，选择 B2

填充色自己看着选就行了

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/ixD9pvvpDsv992nivn.html

第1个回答 2015-08-03

着实是没看懂

相似回答

请求excel vba 组合不重复的代码。谢谢。答：1、选中“组合区域”的数 ---》“条件格式” ---》 “突出显示” ---》“等于”---》选择 A2 2、重复一次，选择 B2 填充色自己看着选就行了

excel利用VBA生成无重复无空值的数据有效性下拉列表答：1.按Alt+F11，打开VBA编辑器。2.在“工程”窗口中双击要包含数据有效性设置的工作表，在右侧代码窗口中输入下列代码：Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim RowNum, ListRows, ListStartRow, ListColumn As Integer Dim TheList As String Dim Repeated As Boolean If Targe...

求如何使用EXCEL的函数实现数字的不重复排列与组合,用VBA也行!答：End Sub 运行这个宏即可得到不重复的数

excel 高手请帮忙,我现在要vba实现列的内容不重复复制答：VBA代码如下：Sub test()Dim ary1, mRow As LongDim d As Object, tmpWith Worksheets("Sheet1") mRow = .Cells(Rows.Count, "C").End(3).Row ary1 = .Range(.Cells(2, "C"), .Cells(mRow, "e"))End WithSet d = CreateObject("scripting.dictionary")For i = 1 To UBou...

Excel三个vba生成不重复随机整数的案例答：vba不重复随机数案例一：下面的代码，将在A1：A5000单元格产生1-5000的不重复随机整数。Private Sub vba不重复随机数()Dim Arr1(1 To 5000) As Boolean Dim Arr2(1 To 5000, 0) As Integer t = Timer [A:A] = Empty For i = 1 To 5000 num = Int(5000 * Rnd + 1)Do While Arr...

...但这5个字母不能重复。请高手编一个EXCEL里的VBA程序答：Public Sub iAO() '一个组合 'A~O字母，n 个字母的不重复的随机组合 Dim d1 As Object: Set d1 = CreateObject("scripting.dictionary")Dim A%, s$, n, m, tmp, i, iA, c As Range A = Asc("A")m = Asc("O") - A + 1 n = Application.InputBox("请输入需要组合的字母个...

大家正在搜

excel vba代码 excelvba编程代码 excelvba代码大全 excel的vba功能 excel vba编程 excel vba实例教程 excel vba常用实例 excel怎么进入vba excelvba是什么