VBA求助BCDE四列文本字符串循环组合（不重复）

excel vba vlookup 循环，赋值问题~

错误多多。
你这个不建议用工作表函数，这样速度有点慢，而且VLOOKUP的第一个参数用mid提取肯定是文本值，如果rng1的字符串里面有数字（比如文本型的123）和rng2（数值型的123），这两个是肯定匹配不了的，还会出错，所以必须还要有个on error resume next才行。
Function Mya(rng1 As Range, rng2 As Range) As StringDim i As ByteFor i = 1 To rng2.Rows.Count If InStr(rng1, rng2(i, 1)) Mod 3 = 1 and len(rng2(i,1))=3 Then Mya = Mya & rng2(i, 2) End IfNextEnd Function

Range("A3") = Format(Range("A1"), "0.#") & Format(Range("A2"), "0.#")

我的表格中Sheet1的数据(只有两行例子数据)：

 

Sheet2生成的数据（生成了16行结果）：

程序代码：

Sub xxx()

    Dim n, iB, iC, iD, iE, i2

    i2 = 1

    n = Sheet1.UsedRange.Rows.Count '获取表格使用的行数

    For iB = 1 To n

    For iC = 1 To n

    For iD = 1 To n

    For iE = 1 To n

        Sheet2.Cells(i2, 2) = Sheet1.Cells(iB, 2)

        Sheet2.Cells(i2, 3) = Sheet1.Cells(iC, 3)

        Sheet2.Cells(i2, 4) = Sheet1.Cells(iD, 4)

        Sheet2.Cells(i2, 5) = Sheet1.Cells(iE, 5)

        i2 = i2 + 1

    Next iE

    Next iD

    Next iC

    Next iB

End Sub

如果你原始表的数据太多了有点惨，EXCEL可能装不下。

---

濠江区18566687083： 在vba中 字符串连接运算符+怎么用 - ？
钊温典必： VBA里面字符串连接使用&,例如:MSGBOX ＂ABC＂ & ＂DEF＂ 将显示ABCDEF

濠江区18566687083： vba字符串排序,按数值大小来排(固定字符+数值): - ？
钊温典必： 假设这一列数据在A列. 我们可以在B列添加一个辅助列,排序后再删除这个辅助列.. 这样在B1输入: =LEFT(A1,MATCH(0,0/MID($A1,ROW(INDIRECT(＂1:＂ &LEN(A1))),1),0)-1)&TEXT(RIGHT(A1,LEN(A1)-MATCH(0,0/MID($A1,ROW(INDIRECT(＂1:＂ &LEN(A1))),1),0)+1),＂00000#＂)同时按下CTRL+SHIFT+回车. 下拉复制填充后, 选择B列,复制,右键选择性粘贴--数值. 选择AB两列排序,选择B列升序.确定后删除B列即可

濠江区18566687083： 求一段VBA代码:相关单元格的字符串操作？
钊温典必： 下面这段代码必须在你把C列所要输入的内容全部输入完成后执行才能有效果 Sub 合并内容() x=[a65535].end(3).row For i = 2 to x If cells(i,3) <> ＂＂ then a = cells(i,1) b = cells(i,3) Cells(i,4) = ＂/＂ & a & b & ＂.ka＂ Cells(i,3) = a & b End if Next i End sub

濠江区18566687083： 用vba在多个工作表查找某个字符,怎么写代码?循环跟查找怎么合在一起用啊? - ？
钊温典必： 以下代码能满足你的要求,找到后激活此表并选中该单元格:123456789101112 Sub全工作簿查找字符串() DimSh AsWorksheet, Ra AsRange ForEachSh InSheets SetRa = Sh.Cells.Find(＂需查找的字符串＂, , , 1) IfNotRa IsNothingThen Sh.Activate Ra.Select ExitSub EndIf Next MsgBox ＂没有匹配的单元格!＂ EndSub

濠江区18566687083： vba excel窗体中对话框输入字符,然后在单元格中查找的语句怎么写? - ？
钊温典必： 首先,获取输入的字符,然后,循环列,查找该字符 比如获取的字符是inputstr for 1=1 to 某列不为空行数值 if 该单元格内容=inputstr 输出 end if next

濠江区18566687083： 求助word利用VBA字符串查找并替换功能 - ？
钊温典必： dim i as integer dim j as integer dim str1 as string dim str2 as string dim str3 as string dim str4 as string str1 = jicwo[abc]iuhiwd str2 = ＂＂ str3 = ＂＂ str4 = ＂＂ for i = 1 to len(str1) if left(right(str1,i),1) <> ＂[＂ then str2 = str2 + left(right(str1,i) else ...

濠江区18566687083： Excel VBA 循环 - ？
钊温典必： 首先 最外面的前后两个双引号表示 之间的这个是一个字符串.而这个字符串里面包含了双引号,所以为了区分字符串内的双引号,和表示字符串的双引号 就规定:在字符串内的双引号,要用两个双引号来表示一个双引号.

濠江区18566687083： vba 遍历列 问题 急求 - ？
钊温典必： set shet = thisworkbook.worksheets(＂表格名字＂) rw = shet.range(＂f65536＂).end(xlup) '最后一行 for each cel in shet.range(＂f4:f＂ & rw) '从第4行到最后一行'cel 就是其中的单元格遍历,你可以做任何操作了next

濠江区18566687083： excel vba 多列数据求和,要求用VBA字典. - ？
钊温典必： Sub 多列相同项累计()Dim dic, iStr as stringSet dic = CreateObject(＂Scripting.Dictionary＂)With ActiveSheetFor i = 1 To .Range(＂A65536＂).End(xl...

濠江区18566687083： VBA求助:如何实现excel与txt之间字符串查找与单元格值的替换 - ？
钊温典必： 如果你的txt文件使用tab分隔符,那么以下代码可以符合你的要求 Sub ChangeTxt() Dim FileN, TxtWb As Workbook, ToFindData As String Dim ToSubData As String, c As Range, FirstAdr As String If MsgBox(＂是否已经选中待查找的单元格?＂...