回复：有excel数据处理问题的可以晒出你的问题，我来帮你解答

楼主，请问怎么用vba把A列的名字加上（w），变成c列那样

楼主，我其实是想做成c列这样的格式。我只会写一部分代码，你要是不忙的话把代码都写下来吧，万分感谢！

求问，怎么把总表的数据和分表的联系在一块，总表改动了，分表自动修改或增加

怎么改变一列中一个单元格的列间距而其余的不变

大神，帮忙看看，每天不同厅入不同货品，a厅盘点表在入那列需要求和入库数，是在明细表中取数，盘点表行列固定的，怎么写

如果你的excel版本不支持按照颜色排序，可以使用如下宏进行颜色排序。
排序前：

排序后：

宏：
Sub OrderByColor()
With Worksheets("sheet1")
For i = 1 To .UsedRange.Rows.Count Step 1
.Cells(i, "D").Value = .Cells(i, "C").Interior.ColorIndex
Next
.UsedRange.Sort key1:=Range("D:D"), order1:=xlAscending, Header:=xlNo
Range("D:D").Clear
End With
End Sub

运行宏test后结果如下C列（A）列为原始数据

宏：
Option Explicit
Sub test()
Dim myValue, lastValue As String
Dim i As Integer
lastValue = ""
With Worksheets("sheet1")
For i = 1 To .UsedRange.Rows.Count Step 1
myValue = .Cells(i, "A").Text
If Len(myValue) = 0 Then
.Cells(i, "C").Value = lastValue & "(w)"
Else
lastValue = myValue
.Cells(i, "C").Value = myValue & "(w)"
End If
Next
End With
End Sub

在单元格输入上面的公式，但是这种做法不具备可移植性。我不知道你的目的是什么。

数组冷热统计，能帮忙写种结果吗？不行就写结果B（一定要VBA）

大神好，求解
表1
a b c
初级基础 1 10
中级基础 20 50
中级基础 1 8
初级基础 22 33
高级专业 30 55
初级专业 60 90
初级专业 200 500
高级专业 350 600
表2
a b c
初级专业 80 20
初级基础 8
中级基础 30
高级专业 420
初级专业 300
在表1中查找表2中a列符合条件的行，再判断表2中b列的值是否在表1符合条件行的b至c中（即>b并<c）,再把表2中b列值减去表1中b列，
如表2中c1，先找到表1中a列为“初级专业“的行，再在表1中查找80属于哪个区间，最后用80-b6=20.
这个公式应该如何写？求教。

使用字典统计重复名字及重复次数的宏如下：
Sub Calculate()
Worksheets("sheet2").Activate
Dim dic
Set dic = CreateObject("Scripting.dictionary")
rng = Worksheets("sheet2").Range("A1").CurrentRegion
For Index = 1 To Cells(Rows.Count, 1).End(3).Row
dic(rng(Index, 1)) = dic(rng(Index, 1)) + 1
Next
mynames = dic.keys
times = dic.items
[C1:D1] = Array("姓名", "次数")
[C2].Resize(dic.Count, 1) = WorksheetFunction.Transpose(mynames)
[D2].Resize(dic.Count, 1) = WorksheetFunction.Transpose(times)
Set dic = Nothing
End Sub

思路：
你说的那些数据都是有0到9的数字组成，为了方便排序，将这些单元格的数据合并成一个字符串，然后统计字符串中每个数字出现的次数，再按出现次数排序。

宏：
Sub test()
Worksheets("sheet2").Activate
Dim str As String
Dim arrayNumber(0 To 9), arrayIndex(0 To 9), position As Integer
For Index = 0 To 9
arrayIndex(Index) = Index
arrayNumber(Index) = 0
Next
str = ""
For Index = 1 To Cells(Rows.Count, "A").End(xlUp).Row
str = str & Cells(Index, "A").Text
Next
For Index = 1 To Len(str) - 1
position = CInt(Mid(str, Index, 1))
arrayNumber(position) = arrayNumber(position) + 1
Next
Rem 排序数组
Dim tmp As Integer
For i = 9 To 1 Step -1
For j = 0 To i - 1
If arrayNumber(j) < arrayNumber(j + 1) Then
tmp = arrayNumber(j)
arrayNumber(j) = arrayNumber(j + 1)
arrayNumber(j + 1) = tmp
tmp = arrayIndex(j)
arrayIndex(j) = arrayIndex(j + 1)
arrayIndex(j + 1) = tmp
End If
Next
Next
Dim res As String
res = ""
For Index = 0 To 9
res = res & CStr(arrayIndex(Index))
Next
Cells(8, "B") = res
End Sub

宏：
Option Explicit
Sub test()
Dim content As String
Dim number, index, row As Integer
For index = 2 To Worksheets("sheet2").UsedRange.Rows.count
content = Worksheets("sheet2").Cells(index, "A").Text
number = CInt(Worksheets("sheet2").Cells(index, "B").Value)
If Len(content) > 0 Then
With Worksheets("sheet1")
For row = 2 To .UsedRange.Rows.count
If content = .Cells(row, "A") And number > CInt(.Cells(row, "B")) And _
number < CInt(.Cells(row, "C")) Then
Worksheets("sheet2").Cells(index, "C").Value = number - CInt(.Cells(row, "B"))
End If
Next
End With
End If
Next
End Sub