Excel你问我答，立贴解答100问 - excel吧

level 14

凶恶毛里😈

前些年重学函数时看了您在880 很多视频

2023年03月22日 01点03分 16

E精精

搞错了吧，如果是软广可以自己删一下 [滑稽]

2023年03月28日 23点03分

level 2

forecastyou0

excel里面选中单元格横竖列都变色，怎么设置啊。能设置随意开关吗

2023年03月22日 07点03分 17

E精精

条件格式设置为：=COLUMN()=CELL("col") 在对应的工作表中添加单元格选择事件（VBA） Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub

2023年03月22日 16点03分

level 11

🌴菠萝蜜🌴

地址Hex280 - 1 用chr(0)作分割，取arr(ubound(arr))后再用chr(5) & chr(5)作分割就能取到。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
Dim objstream, strdata, tj1 As Integer, tt As String, tedname As String
If Target.Row = 1 And Target.Column = 1 Then
　　Cancel = False
　　With Application.FileDialog(msoFileDialogFilePicker)
　　　　.AllowMultiSelect = False
　　　　.Filters.Clear
　　　　.Filters.Add "测试文档", "*.ted"
　　　　If .Show Then tedname = .SelectedItems(1) Else: Exit Sub
　　End With
　　Set objstream = CreateObject("ADODB.stream")
　　objstream.Charset = "big5"
　　objstream.Open
　　objstream.LoadFromFile (tedname)
　　strdata = objstream.readtext()
　　arr = Split(strdata, Chr(0))
　　arr = arr(UBound(arr))
　　arr = Split(arr, Chr(5) & Chr(5))
　　For tj1 = 0 To UBound(arr)
　　　　Sheets("sheet1").Cells(tj1 + 1, 1) = arr(tj1)
　　Next
　　objstream.Close
　　Set objstream = Nothing
End If
Cancel = True
Application.EnableEvents = True
End Sub

2023年03月22日 12点03分 18

🌴菠萝蜜🌴

查了一下这是一个游戏的存档文件吧：Tribes 2 Game Data File 。

2023年03月22日 12点03分

level 2

南海以南-▫

小白想学办公软件，怎么入门啊？有什么教程吗 [乖]

2023年03月22日 13点03分 20

E精精

先学以致用，然后买本书扫扫知识盲区，一定要有目的的去学习

2023年03月22日 16点03分

level 1

上哲

2023年03月22日 13点03分 21

阿良

=TEXTSPLIT(REPLACE(A1,MATCH(1=1,LENB(MID(A1,ROW($1:$99),1))=2,),," ")," ")

2023年03月22日 14点03分

E精精

目测按第一个汉子来拆分即可！左边内容 =LEFT(A1,MATCH(" ",MIDB(A1,ROW($1:$99),1),0)-1) 右侧内容，直接使用替换即可，假设左侧内容在B列，那么可以使用=SUBSTITUTE(A1,B1,)

2023年03月22日 16点03分

level 3

年轻的心♬

你好，我想把excel里边的一个sheet通过VBA另存为一个单独的excel，并能够保存到原excel的路径下，谢谢！！！

2023年03月22日 13点03分 22

阿良

Sub test() Application.DisplayAlerts = False Set wb = Workbooks.Add ThisWorkbook.ActiveSheet.Copy wb.Sheets(1) wb.Sheets(2).Delete wb.Save Application.DisplayAlerts = True End Sub

2023年03月22日 15点03分

E精精

参考23楼

2023年03月22日 16点03分

level 7

E精精楼主

Option Explicit
Sub demo()
ThisWorkbook.Worksheets(1).Copy
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\另存的文件名称.xlsx"
.Close False
End With
End Sub

2023年03月22日 16点03分 23

阿良

学习了

2023年03月22日 16点03分

阿良

@阿良相当于工作表右键-移动和复制-建立副本-将选定工作表移至新工作薄的操作.

2023年03月22日 16点03分

level 1

Shinhwa754

请教大佬，求一个IF的设置问题。
计算金额150000，起付线为14797。扣除起付线后 0~30000的按照60%计算，30000~60000的按照70%计算，60000~100000的按照80%计算，100000以上的按照90%计算。
也就是用150000-14797后的金额用（30000*0.6）+（30000*0.7）+（60000*0.8）+（35203*0.9）来计算出来的

2023年03月23日 01点03分 24

E精精

阶梯电价模式一般是使用下面的公式 =SUM(TEXT(B7-14797-{0;30000;60000;100000},"0;!0")*{0.6;0.1;0.1;0.1}) 你的模拟结果好像跟我模拟的有点区别~

2023年03月26日 11点03分