方寸之间，记录与分享有关于SAP、企业信息化及相关的点滴。
IP属地：西藏
-
Excel VBA和文件夹-1.1创建文件夹
Excel VBA和文件夹-1.1创建文件夹 前景提要 Excel其实在我们的日常生活和工作中是经常用到的，但是很多时候我们并没法发挥出Excel的全部的能力，比方说VBA，...
-
亲情-世人无法割舍的温柔
亲情是什么？我没有去百度，单纯根据自己的理解，亲情，就是亲人之间的感情，是人性中最脆弱，最温情的一面，说它脆弱，因为不管是谁，说到自己的亲人，或者嘴角微微上扬，或者眼中含着泪...
-
求助求助，VBA运行时出现错误，提示:错误代码9，下标越界。在网上搜索的代码
Sub 合并() Set d = CreateObject("Scripting.Dictionary") Set sk = Sheets("总表") sk.[A1:E1] ...
-
新建一个工作，命名为“总表”
复制粘贴以下代码，运行
Sub 合并()
Set d = CreateObject("Scripting.Dictionary")
Set sk = Sheets("总表")
sk.[A1:E1] = [{"品名","规格","数量","单价","生产地"}]
For x = 1 To Worksheets.Count
Set sht = Sheets(x)
If sht.Name <> "总表" Then
'定位————————————————————————————————
col = sht.UsedRange.Columns.Count
ir = sht.UsedRange.Rows.Count
For Each FD1 In sht.Range("a1", sht.Cells(ir, col))
If FD1.Text Like "*品名*" Then
品名 = FD1.Column
标题 = FD1.Row
Exit For
End If
Next
For Each FD2 In sht.Range(sht.Cells(标题, 1), sht.Cells(标题, col))
If FD2.Text = "型号" Or FD2.Text = "规格" Then
规格 = FD2.Column
Exit For
End If
Next
数量 = sht.Range(sht.Cells(标题, 1), sht.Cells(标题, col)).Find("数量").Column
单价 = sht.Range(sht.Cells(标题, 1), sht.Cells(标题, col)).Find("价格").Column
生产地 = sht.Range(sht.Cells(标题, 1), sht.Cells(标题, col)).Find("产地").Column
'——————————————————————————————————
For i = 标题 + 1 To ir
aa = sht.Cells(i, 品名) & "|" & sht.Cells(i, 规格) & "|" & sht.Cells(i, 数量) & "|" & sht.Cells(i, 单价) & "|" & sht.Cells(i, 生产地)
d(aa) = ""
Next
End If
Next
ar = d.keys
For j = 0 To UBound(ar)
ss = Split(ar(j), "|")
For n = 0 To UBound(ss)
sk.Cells(j + 2, n + 1) = ss(n)
Next
Next
End SubExcel VBA工作薄 5.8多个工作薄合并-简易版
前景提要 之前两天因为临近放假，各种事情比较的多，暂停更新了两天，今日稍微缓解过来了，重新恢复日更。 之前我们分享了如何汇总合并多个工作薄的数据，可能因为节奏进展的太快了，有...
-
老师，系统提示下界的问题，请问怎么处理？
Excel VBA工作薄 5.8多个工作薄合并-简易版
前景提要 之前两天因为临近放假，各种事情比较的多，暂停更新了两天，今日稍微缓解过来了，重新恢复日更。 之前我们分享了如何汇总合并多个工作薄的数据，可能因为节奏进展的太快了，有...
