excel
excel vba复制单元格的格式？
vba复制单元格的格式？
将复制这行拆分，复制后选择性粘贴：
Rows(x : n)
Range(A1).PasteSpecial xlPasteValuesAndNumberFormats
如果是复制的单元格格式，再加上下面一句
Range(A1).PasteSpecial xlPasteFormats
另外，Rows本身就是整行引用，EntireRow在这里就是重复的，可取消，直接改为：
Rows(x : n).Copy
excel vba只删除内容，保留格式跟公式？
Sub MyClear()
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula flase Then
Next Cell
End Sub
这个不会把公式去掉，操作方法：你先选中你要清除的区域，再运行这个宏。
如何在EXCEL中利用VBA拷贝表格时格式不变？
程序如下：
Sub 宏()Dim i As Integer, j As Integer, k As IntegerFor i 4 To 41 k Cells(, i).End(xlUp).Row Range(Cells(k - 4, i), Cells(k, i)).Select Cells(1, i).Select Sub
excel中怎么删除重复的记录,保留某项值最大的那一行？
excel对重复值操作的方法比较多，常见的有以下几种：
1. 条件格式：选中源数据区域--开始--条件格式--新建规则--对于唯一值或重复值设 置格式--格式--选择一种填充色--确定，操作完成后，源数据区域所有的重复数据便 被标记上了颜色。此方法的优点是源数据区域可以是一个跨行列的数组区域。
2. “删除重复项”功能：数据--删除重复项--以当前选定区域排序--确定。此方法可 以方便快捷的保留非重复数据，但是仅限于单列操作。
3. 公式法：辅助列输入公式countif(A1:A10,A1:A10)下拉，然后筛选公式值为1的列进行 删除。
4. VBA法：输入如下代码：Sub tst()Dim cel1 As RangeDim cel2 As RangeFor Each cel1 In UsedRange For Each cel2 In UsedRange If cel1 cel2 And Then NextNextEnd Sub