上市:IPO流程详解及风险分析 | 股票发行与交易
上市(IPO,Initial Public Offering),是指公司首次公开发行股票或其他证券,进行募集资金并在证券交易所上市交易的过程。通过上市可以为公司带来更多的融资渠道,提高公司的知名度和价值,同时也会面临更多的监管和市场风险。上市过程需要全面准备,包括审计、法律、财务等方面,同时需要符合证监会规定的各项要求。
代码示例:
1. 使用Vlookup函数进行数据匹配,并处理返回值错误
Sub 标识添加()
Dim wb As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Dim last_row As Long
'设置工作簿、工作表和最后一行
Set wb = ActiveWorkbook
Set ws1 = wb.Worksheets(1)
Set ws2 = wb.Worksheets(2)
last_row = ws1.Cells(Rows.Count, "A").End(xlUp).Row
'循环遍历M列
For i = 2 To last_row Step 1
'vlookup:文化产业
Dim vlookup_result As Variant
vlookup_result = Application.VLookup(ws1.Cells(i, "CN").Value, ws2.Range("L:M"), 2, False)
If IsError(vlookup_result) Then
ws1.Cells(i, "GW").Value = ""
Else
ws1.Cells(i, "GW").Value = vlookup_result
End If
Next i
End Sub
2. 使用VBA循环计算B2+C2-D2,一直循环到A列最下一个单元格内容
Sub 循环计算()
Dim last_row As Long
Dim i As Long
last_row = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To last_row
Cells(i, "A").Value = Cells(i, "B").Value + Cells(i, "C").Value - Cells(i, "D").Value
Next i
End Sub
相关阅读:
希望以上内容对您有所帮助。
原文地址: https://www.cveoy.top/t/topic/jEuy 著作权归作者所有。请勿转载和采集!