Tag: 整理

在检查VBA中的重复项之前对URL进行sorting: 我正在尝试使用VBA运行几个filter，然后将数据输出到“分析”工作表。一切工作，因为它应该到目前为止 – 但我现在试图消除URL重复。 If unique_1 <> Sheets(1).Cells(x, 11) Then 上面的代码片段将消除重复，但只有当我已经sorting的URLS（这不是我可以做的数据前期）我希望我可以用VBA来分类，但是目前还没有能力，而我的眼睛正在杀死我。任何帮助，将不胜感激！在此先感谢您的帮助！ If Sheets(1).Cells(x, 12) = "X URL" Then If Sheets(1).Cells(x, 9) > 4 And Sheets(1).Cells(x, 9) < 10 Then '//NEED TO SORT URLS HERE FIRST – BEFORE I CAN FIND DUPES// If unique_1 <> Sheets(1).Cells(x, 11) Then O_2 = O_2 + 1 […]

Excel 2013 VBA使用连续的列对大范围进行sorting: 我试图研究为什么这不起作用，但我已经打了一堵墙，因为据我所知，我的代码应该是做的伎俩… … 我的情况是，我正在构build一个电子表格，以简化我办公室的预算报告stream程。因为我是唯一一个对Excel有一个半正式理解的人，所以我想把它作为braindead，对于其他用户来说是简单的。为此， VBA来拯救！因为它会照顾导入数据，并做我所有的sorting（他们）只需点击一下。导入的数据是24列宽，到年底可能增长到2500行。一旦数据被导入，我需要依次排列多个列types。所以： – 导入数据 – 按datesorting – 按交易typessorting – 按照收费预算sorting – 等等（共6种）这是我目前的代码： Sub RefreshAll() Workbooks(ThisWorkbook.Name).RefreshAll With Worksheets("Detailed Budget Report") .Range("RC_number").CurrentRegion.Sort _ key1:=Range("Sort_1st"), order1:=xlAscending, _ key2:=Range("Sort_2nd"), order2:=xlAscending, _ Header:=xlYes End With End Sub 刷新将全部从导入文件中重新获取，以确保电子表格是最新的。然后，我必须整理一下。感谢这篇文章底部的精彩回应，我学习了使用范围名称，本页向我展示了如何引用其他工作表。这是问题：只有第一个sorting键正在工作。代码不会抛出错误，它不会停止，它似乎执行正确。但是，只有第一类的论据才会被采纳。不pipe我input第一个键的范围是多less，也不是第二个input的范围，只有第一个sorting。任何人都可以帮我弄清楚我做错了什么？提前致谢！

loggingmacros不logging适当的分类代码（不同的结果比手动方法logging）: 所以我有一个“标志”列，条件格式化=IF(INDIRECT("RC",0)="",TRUE,FALSE) ，它改变字体颜色，使字体颜色是不同的颜色（蓝色）if该单元格是空白的，因为当我手动按值sorting时，空白单元格结束了。当我通过字体颜色手动sorting，一切正常。手动分类：手动sorting结果：这个想法是使这个macros，所以我logging了我做手动sorting，并得到了以下几点： Range("A1:F9").Select ActiveWorkbook.Worksheets("Sheet1").SORT.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").SORT.SortFields.Add(Range( _ "E2:E9"), xlSortOnFontColor, xlDescending, , xlSortNormal).SortOnValue.Color = _ RGB(0, 0, 0) ActiveWorkbook.Worksheets("Sheet1").SORT.SortFields.Add Key:= _ Range("D2:D9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").SORT .SetRange Range("A1:F9") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With 但是，当我运行录制的代码时，我得到了与我想要的完全相反的结果，底部有空白标志的单元格：我试过改变xlSortOnFontColor的xlDescending为xlAscending ，但它仍然有相同的不想要的结果。问题：鉴于我logging了一个可用于手动过程的macros，为什么logging的代码不工作，代码应该是什么？

unicode字符值: 问题：按值扩展符号的正确顺序是什么？如果我擅长对Unicode字符列表进行sorting，则顺序与如果使用excel“= code（）”并按这些值sorting的顺序不同。目的是要测量字符之间的距离，例如ab = 1和＆ – ％= 1; 当使用excelsorting函数进行sorting时，三个sorting在三个字符之内的字符的值都是134。另外，一些字符符号在excel中是空白的，有几个符号是用“查找”find两次的，是两个不同的符号，而且根本找不到一对。请解释这些“特殊”字符的细节。 http://en.wikipedia.org/wiki/List_of_Unicode_characters 示例代码： int charDist = abs(alpha[index] – code[0]); 编辑：要找出c + + vs2008中的UNICODE值，我运行每个代码作为从代码1比较代码255代码1 cout << mem << " code " << key << " is " << abs(key[0] – '') << " from " << endl; 在括号中是一个黑色的快乐的脸，这个网站没有字体但命令窗口呢，在VS2008它看起来像一个半 – T. Excel右半部分留空。下面的Unicodes不是在c ++ vs2008中用std库和#include 9,10,13,26,34,44， […]

VBA按升序sortingExcel行，但不包括第一行？: 我成功地使用了下面的代码，一旦我用数据填充工作表，按照B列的升序对数据进行sorting，第一行是logging标题; B列是REPTNO列。对于样品数据，我有含有REPTNO B1和含有SR0238-SR0253 B2-B17。一切都很好，但是当我清理B2-B17并提交给用户进行testing时，发生了一些奇怪的事情。我的用户input了第2行的logging，其值为JF0007的REPTNO 。当我的下面的代码进程，我的第一和第二行翻转（J来的R之前），导致我的“标题”列在第二行，而不是保持在第一。我需要改变只sorting第二行，排除第一行？当我输出到.txt文件时，我的行1需要保留为第1行。 rowCnt在这种情况下的值是2（标题行+input的1个数据行。 EDIT2： ' Sort by REPTNO field Dim xlSort As XlSortOrder xlSort = xlAscending If rowCnt > 2 Then With Worksheets("Export") .range("B2:B" & rowCnt).Sort Key1:=.range("B2"), Order1:=xlSort, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With End If 当有1个logging进入（第2行）时，它似乎只是交换第一行（标题行）。当我将第二个数据logginginput到第3行REPTNO = JF0005 ， REPTNO值保持为B1。但是，它确实出现这个代码是不正常的，因为我认为这是。 […]

对字母数字值进行sorting: 我需要按字母数字sorting零件号码清单。 Excel将不会正确sorting，虽然当我打开自动筛选器下拉，它显示在我需要的顺序。它们的长度不统一，有的包含字母，有的包含前导零，最大长度为15个字符。这是一个列表，以及正确的sorting： Part Correct Sort 00863 00863 1123 02257 02257 07706 6549 10338 6834 11212 07706 1123 8001 65412SSCY 8001 6549 10338 6834 11212 8001 65412SSCY 8001 EN93 EN93 SCSM11BE SCSM11BE 希望一个macros观或方法。