VBA – 关于两列值变化的新项目
我有八列数据。 有500行。 他们按列a然后bsorting。
所以看起来像这样：
1111|1536|Data... 1111|1536|Data... 1111|1537|Data... 1112|1536|Data... 1112|1536|Data... 1112|1536|Data... 1112|1536|Data... 1112|1536|Data... 1112|1537|Data... 我在编写第九列的代码时遇到了麻烦，在列a和b的组合改变为不同的东西之后，重新编号行。 所以我想看起来像这样：
Item 1|1111|1536|Data... Item 2|1111|1536|Data... Item 1|1111|1537|Data... Item 1|1112|1536|Data... Item 2|1112|1536|Data... Item 3|1112|1536|Data... Item 4|1112|1536|Data... Item 1|1112|1537|Data... Item 2|1112|1537|Data...
我不能仅基于这两列进行聚合，因为所有八个都创build了一个独特的数据组合，我需要保留这个组合。
这是我用的：
Sub Item() Dim ItemVar As String Dim ColAVar As String Dim ColBVar As String Dim n As Integer Dim i As Integer ItemVar = "Item " n = 1 ThisWorkbook.Sheets(1).Range("A1").Select ActiveCell.EntireColumn.Insert ActiveCell.Value = ItemVar & CStr(n) For i = 1 To 499 ColAVar = ActiveCell.Offset(0,1).Value ColBVar = ActiveCell.Offset(0,2).Value ActiveCell.Offset(1, 0).Select IF ActiveCell.Offset(0,1).Value = ColAVar And ActiveCell.Offset(0,2).Value = ColBVar Then n = n + 1 ELSE n = 1 End If ActiveCell.Value = ItemVar & CStr(n) Next i End Sub