如何解决Excel：创建可排序的化合物ID
| 全部，我问了一个问题“ Excel VBA：先排序，然后复制并粘贴”，并收到两个很好的答案。但是，由于我无法提供足够的用户要求，因此它们将无法工作：我要求对我创建的现有解决方案进行修复，而不是指定实际的业务需求并查看是否有人有更好的方法。 （叹气）这是这样的： 老板要求我创建一个ss来记录问题。他想要一个复合ID，该ID将\“ Assigned Date \”与一个数字连接起来，该数字指示该日期仅适用于该日期。新的一天，计数必须从1重新开始。例如： 关联的已分配问题 日期和计数= ID 5/11/2011＆1 = 5112011-1 5/11/2011＆2 = 5112011-2 5/11/2011＆3 = 5112011-3 5/12/2011＆1 = 5122011-1 我用一个隐藏的列C解决了这个问题，该列C ==（D2 <> D1,1，C1 + 1），因此，如果D列中的分配日期与上一个日期相同，则通过增加上一个问题计数来计算问题计数，并在日期更改时从1开始。另一列将分配的日期和问题计数连接起来，我有我的问题ID。 快速，轻松，优雅，由内而外，完成。对？但是，当我提交ss时，他指出，如果您（即他）对电子表格的任何部分进行排序，则问题ID会乱序。当然，如果行是按“分配的日期”顺序排序的，则每个公式都不会依次引用上一个日期。 我的直接想法提示了我先前的问题，它是首先正确地对“分配的日期”顺序进行重新排序，然后复制并粘贴计算出的“发行数量”的值以将其锁定，从而保留级联的ID。 我可以看到的另一种方法（在VBA中，natch）是： 评估“分配的日期”列中的所有日期 评估“问题计数”列中的所有数字 计算在给定分配日期分配的新项目的最新连续发货计数 将该连续的问题计数分配给新项目 然后将光标放置在用户通常会进入的下一个单元格中，这将是刚输入的“分配的日期”旁边的一个右侧。但是，这不是必需的 这样可以避免对物理SS重新排序的需要。但是，除了朦胧的猜测，这将涉及到VLOOKUP，我什么也没得到。我无法通过搜索找到任何东西。 有人可以帮忙吗？还是建议一个地方？谢谢！！！解决方法
听起来您只想自动化“选择性粘贴”操作。以下内容将a1：a100中的公式替换为其计算值：
Set src = ActiveSheet.Range(\"a1:a100\")
src.Copy
src.Select
Selection.PasteSpecial Paste:=xlPasteValues,_
Operation:=xlNone,_
SkipBlanks:=False,_
Transpose:=False
ColA ColB ColC
Row1 Assigned_Date Issue Count Concatenate
Row2 05/11/2011 =COUNTIF($A$1:A2,A2) =TEXT(A2,\"ddmmyyyy\")&\"-\"&B2
Row3 05/11/2011 =COUNTIF($A$1:A3,A3) =TEXT(A3,\"ddmmyyyy\")&\"-\"&B3
Row4 05/12/2011 =COUNTIF($A$1:A4,A4) =TEXT(A4,\"ddmmyyyy\")&\"-\"&B4
Row5 05/11/2011 =COUNTIF($A$1:A5,A5) =TEXT(A5,\"ddmmyyyy\")&\"-\"&B5
Sub AddEntry()
Dim iDayRef As Long,iNumRows As Long,n As Long
With Range(\"A3\")
iNumRows = .CurrentRegion.Rows.Count
For n = 2 To iNumRows
If .Cells(n,1).Value = Date Then
If .Cells(n,2).Value > iDayRef Then iDayRef = .Cells(n,2).Value
End If
Next
.Cells(iNumRows + 1,1).Value = Date
.Cells(iNumRows + 1,2).Value = iDayRef + 1
.Cells(iNumRows + 1,3).Value = Format(Date,\"mm/dd/yyyy\") & \" - \" & iDayRef + 1
.Cells(iNumRows + 1,4).Select
End With
End Sub
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。