这只是个请教问题的示范数据表,我要统计的数据表每年数据非常庞大,复制粘贴十分不方便。
求一种公式或者用数据透视表之类的专业方法。
之前的提问中有网友回答可以用vba,在这里求个运算代码,能实现上述描述。
万谢加分
之前那位回答问题后又删掉回答记录的朋友,每个人都有不熟悉的领域,还希望得到你多多帮助啊
ä¸é¢ç代ç å¨æçæºå¨ä¸æµè¯éè¿ï¼è½æ»¡è¶³ä½ çè¦æ±ï¼ä½ è¯è¯çï¼å¦æéå°é®é¢è¯·æ·å±è¯´æï¼
Option ExplicitSub YgB()
Dim db, i, j, m, n, y, arr
Set db = CreateObject("Scripting.Dictionary")
i = 1 'ä»ç¬¬ä¸åå¼å§
While Cells(1, i) <> "" 'å¤çæ¯ä¸åï¼ç¥ééå°ç©ºï¼ç¬¬ä¸è¡ï¼
y = Trim(Cells(1, i))
If db.Exists(y) Then
'移å¨
n = db(y) 'å½ååéè¦ç§»å¨å°nååé¢
m = Cells(Rows.Count, i).End(xlUp).Row 'å½åæåä¸è¡
j = Cells(Rows.Count, n).End(xlUp).Row 'nåæåä¸è¡
arr = Cells(2, i).Resize(m - 1, 1)
Cells(j + 1, n).Resize(m - 1, 1) = arr
Columns(i).ClearContents
Else
'æ·»å
db(y) = i
End If
i = i + 1 'ä¸ä¸å
Wend
End Sub追é®
è½æ代ç å¤å¶ä¸ä¸åç¾åº¦ç¥éä¹ï¼
é£å¥ï¼å¤çæ¯ä¸åï¼ç¥ééå°ç©ºï¼ç¬¬ä¸è¡ï¼ãæ¯âç´å°âä¹ï¼
æ¯âç´å°âï¼ä¸é¢ç代ç æ¯æåï¼ä¸æ¯å¾çï¼ï¼å¯ä»¥å¤å¶ã
追é®å©è°¢ï¼æè¯è¯TVT
追çå¦æä½ éå°é®é¢ï¼è¯·æ·å±ä¸¤ä¸ªå 容ï¼æ¥éçå¼¹åºçªå£ãç¹âè°è¯âæé®åæé»è²æ¡ç代ç å±å¹ã
追é®çæ¯å¤ªå¤ªå¤ªå¤ªå¤ªå¤ªå¤ªç¥å¥äºï¼ç®ç´ä½©æå¾äºä½æå°â¦åæ¥ç¼ç¨è¿ä¹å¥½ç©â_âï¼å¸®äºå¤§å¿ï¼ï¼ï¼
你上传百度知道吧,,居然不让我留邮(这样也不能发)箱
追答楼上有人答了,就采用他的吧
追问您好,
这条评论我把分给您。
额,上午出去了,貌似没法再答了